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Editor's Desk 



By Chris IVIcEwen 



By necessity, my cxDlumn in this issue is going to be very brief. 
My health has not been good the last few months and I have spent 
several weeks in the hospital. As a result, we have skipped the 
March/ April issue and gone straight to May /June. You will not 
lose an issue from your subscription, however, as the expirations 
are set to issue number, not month. 

In the meantime, please pardon me if the magazine is not right 
on time over the next few months. It will take some time for my 
health to fully recover. Your understanding is appreciated. 

A new author joins us. Walter Rot tenkolber discusses the cyclic 



redundancy checkand gives us Forth code for it. We also welcome 
back Frank Sergeant with his Bumbling Mathematician. 

Matt Mercaldo opens a topic we haven't covered in a while: 
fuzzy logic. I hope to see more on this. Lee Hart has expressed a 
desire to write more on it. 

Add in Paul Chidle/s work with the Z180 YASBEC and his 
new colximn Hardware Hacker, Roger Warren's work with the 
NZCOM virtual BIOS, Wayne Sung's discussion of IPalong with 
Bill Kibler, Jay Sage, Rick Rodman and Bill Ushey and I'd say we 
have a pretty good way to spend a few evenings. Enjoy!# 



Reader-to-Reader 



I noticed a few things in my 6809 assembler article that should 
be corrected: 

a) The table of valid indexed addressing modes (p. 8, first 
column) shows ", — " as the "autodecrement by 2" mode 
indicator; it should be ",--" (two minus signs). I think this 
happened at your end. 

b) The Forth fragment on page 12, for the word CODE, should 
readcaEATE here dup 2- i. The DUP was omitted from the 
article. 

c) You neglected to mention that the source code for the 
assembler is available on GEnie's Forth Roundtable as 
6809ASM.ZIP. (Tsk, tsk...shame on you.) 

Also, here is an update on the SuperS article: 

WAKE-UP: 

The transmit wake-up bit works differently on rev and rev A 
parts. The difference appears to be when the selected wake-up 
value — as selected inbit Oof the U ART Mode A (UM A) register — 
is latched for transmit. It seems that the rev parts have a 9-bit 
transmit shift register, but only an 8-bit Transmit Holding register, 
so the transmitted wake-upbit depends on the value of the LIMA 
bitO_when_the_byte_is_moved_frDm_the_holding_register_to_ 

the ^shift_register_. The rev A parts seem to have a 9-bit Transmit 

Holding Register, so the transmitted wake-up bit depends on the 
value of UM Abit 0_when_the_byte_is_written_to_the_Transmit_ 
_Holding_register_ (UIO). In other words, in the rev A parts you 
must set UM A bit Obefore writing the character to UIO; in the rev 
parts you must do likewise, but you must also leave UMA bit 
set until the Transmit Buffer Empty signal becomes active. 



the Forth Interest Group Roundtable software libraries on GEnie. And 
here is the bio paragraph that we didn 't get to run on your SuperS article 

Doug Fleenor is a microcomputer hardware & software specialist 
serving the entertainment industry. He left the security of full time 
employment in September 1990 to join the ranks of struggling (but 
happy) independents. Doug's current processor of choice is the Zilog 
Supers, because "it does everything 1 need...for now". His extensive 
work on lighting control multiplex systems earned him the nickname 
Dr.Mux,whichheacceptedin "yankeedoodle" stylehehasbeenknown 
to wear a doctor's lab coat to industry trade shows, with an oscilloscope 
probe around his neck. Doug can be reached at Doug Fleenor Design, 
396 Corbett Canyon Rd., Arroyo Grande, CA 93420. 

Brad Rodriguez is another veteran of the entertainment lighting 
industry, whose infatuation with Forth and Forth-supporting proces- 
sors is well known. Brad was introduced to the Zilog Supers by Doug 
Fleenor inl987,andhasbeen enamored of it ever since. Currently Brad 
is putting the finishing touches on a commercial Supers Forth compiler, 
andalso on a SuperS-based multiprocessor lighting control system. He 
prefers to be contacted as B.R0DRIGUEZ2 on GEnie, but will accept 
email as bradford@maccs.dcss.mcmaster.ca on the Internet, or paper 
mail at T-Recursive Technology, 221 King St. £., Suite 32, Hamilton, 
Ontario L8N 1B5 Canada. 

Brad and Doug have collaborated on several SuperS-based projects, 
amongthemtheTeatronicsProducerlI+,Quantum,Comstar,MD288, 
and Echelon. Between them. Brad and Doug claim to have used every 
function and feature of the Zilog SuperS. 9 



— Brad Rodriguez 

Thanksforthenote, Brad. You'reright, the 
source for the 6S09 assembler is available in 



Letters to the editor and other readers are welcome. Submit to The Computer Journal, P.O. 
Box 12, South Plainfield, NJ 070S0-0012. Letters may also be electronically submitted via 
GEnie™ to "TCJ$". Submission implies permission to publish your letter unless otherwise 
stated. Letters may be edited as necessary. 
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Fuzzilogy 101 



What, precisely, do you think you're doing? Fuzzy Logic may help. 

By Matt Mercaldo 



Fuzzy Logic! What is fuzzy logic? The Japanese seem to know. 
They are using it in all types of commercial goods that once were 
difficult to use. Now by the use of this technique of hardware and 
pnagram we can shake when video taping, get in focus when 
filming, drive our cars easier and with more peace of mind and the 
list continues to go on. 

Fuzzy Logic! What is fuzzy logic? As program and hardware 
scriveners we have to know. Is it just away to make programming 
easier? Is it just "The right way of doing things that we've done all 
along anyhow"? Well, sort of. 

Let's first talk about fuzzy logic in terms of what it is and is not. 
Fuzzy logic is not "crisp" logic. Crisp logic means that a square 
peg will fit inasquare hole and around peg will fit ina round hole 
and that is the law of the land. For a lot of applications, Crisp logic 
is the right way of approaching the problem and has been for 
years and years. When a specific combination of switches is set 
(and not set) in some huge evolved automaton of the factory floor, 
a crisp logic based system will find a rule which matches the 
combination of the on's and off 's. When the correct rule is found, 
the system will take the winning rule's action. Crisp logic usually 
has one winner and systems tend to become hierarchical (many 
levels of if 's and then's and else's all nested together in the typical 
complete and confusing construct). 

Fuzzy logic is not fuzzy at all! Actually it is the essence of 
structure; in an extensible sort of a way. Systems using fuzzy logic 
tend to make creation of a process control or like event driven 
system old hat. With the proper fuzzy logic system creation tools, 
complex process control systems can be constructed and simu- 
lated in a very short time. Examples of this technique even exist 
where a fuzzy system can teach itself by adapting its membership 
sets to a new environment (Membership sets will be explained 
shortly). (This sort of thing is critical when the six legged explorer 
you have spent bajillions of dollars creating needs to releam how 
to walk when it reaches the moon wit h the moon's lower gravity!) 

Fuzzy logic systems are not neural networks. Trust me on this 
one! We do not have time to enter a treatise on Neural nets. Fuzzy 
logic is closer to a production system (similar to that found in an 
earlier article of my authorship on stepper motor control) than 
neural nets. 



Let us come up with a simple working definition for Fuzzy 
Logic. Fuzzy logic is a technique of associating a degree of truth 
to the relationship between a set of monitored data and a rule's 
antecedent. Unlike crisp logic, all rules participate in the output 
result. 

"Right!@#%!!!!" you say. Maybe a deeper look into an actual 
example may help. "Johnny, If I've told you once I've told you a 
thousand times!!! Some day you are going to break your head 
open and I '11 have to pick up the pieces! ! Get off of the swings only 
whentheswinghasstoppedswinging — \meancomplddy stopped." 

Ah, the carefree days of childhood! The mother, in this little 
remembrance, has laid down the law of the land in quite a crisp 
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fashion. But later the day crawled onward for Mommy, and soon 
she wished to go home and relax. 

"Ok Johnny you can get off of the swing. It is slow enough for 
you to get off now" . Interesting! Slow Enough — not quite the crisp 
answer. If Johnny were driven by a PLC all sorts of interesting 
things would happen. Good thing Johrmy is just a red blooded 
American boy. There's the jump, and off the swing Johnny flies! 
So is Mommy double talking? Well not really, actually she is 
using fuzzy logic to make a decision as to the law of the land. 
(Fuzzy Logic in the Practice of Law?. .Hum) Let us get really 
clirucal about swings and pendulums. Swings are a lot like 
pendulums if you really think about it . There is a distance from the 
center point (Center point being where the law of the land said 
Johnny could get off the swing the first time the law was spoken 
forth), and there is a momentum or speed 
at which the swing is swinging (This must 
be zero — no sw inging — in the crisp law of 
the land as laid down by the Queen of the 
land; Mommy). We will call the angle of 
the swing to the center point THETA, and 
the momentum or speed of the swing 
dTHETA . When Johnny is swinging with 
allof hismight (inorderto reach themoon 
or any near planet) his dTHETA is highest 
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when his THETA is lowest and likewise his dTHETA is lowest as 
his THETA is highest. Gravity does wonders at keeping little boys 
feet on the Earth and swing fast and high and not necessarily all 
at the same time. We will use THETA to help the Queen determine 
the Fuzzy law of the land, because the law of gravity will be in 
magical proportion to the THETA and the law of the land. 

We will assume THETA to be feet between the center point and 
the seat of the swing. By careful judgment the Queen (Mommy) 
has decided that when THETA is between one and two feet from 
the centerit is safe for Johnny to get off of the swing. We couldeven 
draw a little graph to illustrate this as you see in figure 1. 

The careful reader will note that it is very safe to jump when 
THETA is zero and the degree of membership in Safe is 1. The 
reader will also note that it is not safe to jump when THETA is 
three and the degree of membershipof Safe is 0. So when Johnny's 
THETA is 1 foot it is 50% safe to jump. As the speed increases from 
1 to2 THETA, jumping becomes more dangerous, more exhilarat- 
ing, and altogether more fun; Johnny wants to optimize his exit for 
a THETA of 1 foot, 11.99 inches. Johnny will still be within the 
current limits of the law and having the most fun! This my friends 
is the very essence of Fuzziology! 

Let us make a simple fuzzy rule base for the laws of the 
swinging within and without the limits of the law. 



IF? 

THEN? 

END? 

IF? 

THEN? 

END? 

IF? 

THEN? 



THETA IS? ZERO 



EXIT IS MOST SATE 



THETA IS? LOW 



EXIT IS MOST EXHIIARATING 



THETA IS? HIGH 



EXIT IS MOST DANGEROUS 



Well, ok. ZERO seems tangible enough but what about LOW, 
HIGH, and MOSTSAFE, MOSTEXHILARATING, and 
MOSTDANGEROUS?... Another graphmayillustratethepoint. 
Each fuzzy term such as ZERO, LOW, and HIGH, has a set 
associated with it. In high and scholarly mathematical circles this 
means a function with long descriptive symbols and numbers 
with meaningful descriptions attached. For the Hardware Hack 
this means a lookup table. However and for whomever the 
membership set is used, it determines an input's degree of 
membership in the given class. Theoutput membership set can be 
eitheran output function or what iscalled a Singleton. A singleton 
is a value that represents the desired non-fuzzied output. We will 
investigate this more closely a little later. Take a gander at Figure 2. 

1 n light of the new set graphs let us look at the rules again and 
think of how this would work in a system. First the THETA value 
would be sampled, and held. Each rule antecedent would fire 
with the new THETA value. 

Let us make a little techie decision here: The value will be an 
eight bit value for THETA . With this bit of coercion, we assume 
that each membership set has been defined ina 256byte table. Let 
us assume that THETA when sampled was what would equivo- 
cate 1.4 feet for THETA (somewhere around 7C in our 8 bit hex 
understanding). 

RULE one's antecedent states IF? THETA I S? ZERO . The value 
for 1 .4 is looked up in the membership table for ZERO and found 
to have a degree of membership of around 10%. 



RULE two's antecedent states IF? THETA IS? LOW. The value 
for 1.4 is looked up in the membership table for LOW and found 
to have a degree of membership of arovmd 60% . 

RULE three's antecedent states IF? THETA IS? HIGH. The 
value for 1 .4 is looked up in the membership table for HIGH and 
found to have a degree of membership of around 0% . 

The percent of membership aie remembered for each anteced- 
ent for each rule as the rule's Fuzzy Output. Fuzzy Output is a 
value that indicates a degree of truth fora rule'santecedent. Fuzzy 
Output is an intermediary value between the portion of the rule 
which declcues a verdict and that portion of the rule which carries 
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out thejudgment. Infuzzysystemswith morethanoneantecedenal 
component, the Fuzzy MIN rule is applied to the antecedents 
subparts. The fuzzy min rule states that the lowest percent of 
membership of the antecedent's parts will be the Fuzzy Output or 
degree of truth of the antecedent of the fuzzy rule under scrutiny. 
The reader can think of the antecedent of a fuzzy rule as a chain. 
Each antecedenal component is a link in the chain. Just as the 
strength of the chain is determined by its weakest link, so the 
degree of truth of a fuzzy rule is determined by the rule's weakest 
antecedenal component. Theabove process iscalled Fuzzification. 
A fter the fuzzy outputs are determined for all of the anticedenal 
components, they work together to calculate a value for the 
system output or system outputs. The process of getting a mean- 
ingful output is called Defuzzification. A standard way of 
defuzzifying is by the Center of Gravity defuzzification method. 
The fuzzif ied outputs are looked up in the output membership set 
tables MOST_SAFE, MOSTEXHILARATING, and 
MOST_DANGEROUS or if Singletons are used, the singleton 
values for MOSTSAFE, MOST_EXHILARATING and 
MOST_DANGEROUS are used. Singletons are like a Tonesetting 
on a stereo. A tone knob sets what the tonal quality of the stereo 
willbe. Imagine thenotchesofHIGH,MEDIUM,and LOW onthe 
tone control as singletons. There are three positions given. Any 
setting can be described in relationship to one of those settings. In 
fuzzy rule systems, singletons are used as starting points to 
determine the output, or in our example, the Tone level of the 
stereo. Singletons working together with Fuzzy Outputs (used in 
the center of gravity formula), determine a final setting that will 
be within a system output's allowable range of outputs. In the 
tone control example, the system output will be the Tone setting 
on the tone knob. The tone knob can only go so far to the LOW or 



The Computer Journal / #55 



to the HIGH, Also the output value may not necessarily be the 
same as any singleton value either. Once again. The tone knob 
may not find itself on LOW or MED or HIGH after all is fuzzily 
inferred and done. 

I f output membership sets are used the output membership set 
takes a degree of truth and use it to look up or find a specific value 
in a range of values. In the above singleton example illustrated 
with a stereo's tone control knob, output membership sets give us 
an equalizer Each membership set would equivocate a frequency 
range slider Assume that instead of three positions on a tone knob 
we have an equalizer with three sliders adjusting each range of 
HIGH, MEDIUM and LOW. The LOW slider would not have 
values in the HIGH range and so on. The antecedents Fuzzy 
Output value would "move" the slider within the Targeted range 
of HI GH or MED or LOW as appropriate to the consequent of the 
fuzzy rule. Note that the consequent of a fuzzy rule is specific to 
an output and a range. In the above rules we see: 

THEN? EXIT IS7 MOST_SAFE 

EXIT is the fuzzy output and MOST_SAFE qualifies the 
output. 

Ul timately we would get something very close to the singleton 
value for that range. Output membership sets are kind of like a 
fine tuning over Singletons just as an equalizer on a stereo lets the 
audiophile adjust the stereo's response more resolutely than a 
tone control knob could. When an output memberships value is 
ascertained though, it is used the same as if it were a singleton. The 
Singleton will be used in the below example for ease of explana- 
tion. 

For each consequent of each rule the fuzzy outputs (degree of 
truth of the antecedent as captured in the Fuzzy Output variable 
for each rule) will be combined with the Singleton or output 
membership set value in the following center of gravity formula. 

For each Fuzzy Rule do 

FlSviroPrcxiuctB = (Si * Fil + FiSumProducts 
FiSxam = Pi 4- FiStim 

Where Fi is the fuzzy output value of the ith rule, where Si is the 
Singleton value of the ith rule and where FiSumPtoducts is used 
to hold the sum of Si * Fi accumulated over all of the fuzzy rules, 
and FiSum is used to hold the sum of the fuzzy output values 
accumulated over all of the fuzzy rules. 

In our example the formula would look like the following 
assuming singletons or output membership values of .1 for 
MOSTSAFE, L5 for MOSTEXHILARATING, and 3 for 
MOST DANGEROUS. 



ULIL 


ai. 


.1 + .6 + 

.01 + .9 + 0_ 
.7 

.7 


iUl 




1.3 


= System Output 





It is a rare enterprise that can assume it will be 
serving exactly the same market with the same 
products in ten years time. 

— Jesse Werner 



So 1.3 is the system output of EXIT which means that Johnny 
will have a most exhilarating jump completely within the limits 
of the law. We can see that ZERO's fuzzy result had an impact on 
the output, that HIGH had no impact on the output and that MED 
had the most impact on the output. Membership functions are 
determined by an intuitive guess initially. The Queen of the land 
in our swing example knew that when the swing was about two 
feet from its centerpoint then the jump became dangerous for a 
boy of Johnny's size and weight. In a similar way an engineer 
would determine the initial values for the membership set. The 
membership set would then get "tweaked" into acceptable val- 
ues. Our fearless Queen Mommy may see Johnny jump from a 
THETA of three feet, see the excitement of her boy, and see that 
maybe three feet wasn't so bad and alter the membership sets 
accordingly to allow safe jumping to Include jumping from a 
THETA of three feet. Yes, this can tend toward the more "black 
magic" arts of our profession such as analog system designs if 
attempted without the proper tools and simulation software. 

This technique becomes more exciting when doing problems 
where the output actually drives a motor or some like device in 
servo applications (The infamous eind almost classical inverted 
pendulum problem). When viewed deeper Fuzzy logic opens 
new doors to autonomous systems development. Code was 
actually developed on the F68HC11 New Micros chip; but after 
long contemplation it is the author's belief that effective fuzzy 
control will be better done by pnafessional packages that support 
custom ASCFuzzycontrollerchips. If the general TCJ readership 
wishes, I will write an anotherarticle around the fuzzy production 
system internals and tools that I have developed.© 
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The Cyclic Redundancy Check in Forth 



By Walter J. Rottenkolber 



This study of the Cyclic Redundancy Check (CRC) grew out of 
a desire to upgrade my faithful modem program, a patchwork of 
public domain and homespun 8080 assembly code. The thought 
of tackling 128K of code daunted me and I decided to recast the 
program, with enhancements, into Forth. Since the source code 
of the few Forth modem programs I had dated way back and only 
used the original checksum, this seemed the ideal time to review 
CRC's in general, to explore the algorithms available to calculate 
the CRC, and to develop some useful Forth routines. 

I searched my library, and fortunately unearthed somearticles 
written in the days when articles routinely included source code 
(though not often in Forth). T. Ritter's article proved most helpful, 
though I'd neverbefore considered Pascal to be a write once, read 
never language. 

I n transferri ng data, a change of even one bi t can resul t in great 
problems if that data is a program. The Cyclic Redundancy Check 
is designed to detect even minute changes (errors) in a block of 
data after a transfer, especially burst errors shorter than the CRC 
polynomial, and errors of three or less bits. The CRC will detect 
99.998% of all enters, which is more than 460 times better than the 
original xmodem checksum. Though it can't correct the error, the 
CRC can at least sound the alert, and perhaps even initiate a 
retransmission of the data block. 

How Does a CRC Do It? 

The CRC works by concatenating all the data into one huge 
number, and appending a numberof zeros to the end equal to one 
less than the degree of the CRC polynomial. It is then divided by 
the CRC polynomial using modulo-2 (exclusive-or) arithmetic. 
The quotient is thrown away and the remainder kept as the CRC 
value. The CRC polynomial, itself, is a number specially selected 
to provide (hopefully) unique remainder values. 

A polynomial is an algebraic expression of the form 



ax'n + ax'n-l + 



+ ax*l + ax^O 



and it describes the class of algebraic numbers, to which the 
integers belong. Note that the power ( n) begins with zero and goes 
to n, the degree of the polynomial. 

By substituting the radix (number base) for the x, and a 
number from to x-1 for the 'a', an integer is generated. For 
example, the decimal number: 



2«10'3 + 5*10"2 + 7*10*1 + 3*10*0 
2*1000 + 5*100 + 7*10 + 3*1 = 
2000 + 500 + 70 + 3 = 2573 



Several polynomials are known and used (see Table I) to deal 
with different size data blocks. The maximum block size a 
polynomial can accurately handle is given by: (2"n-l)-l. For a 
CRC of 16 degrees, this works out to (2 '' 15)-1 bits, or 4095 bytes. 



Larger blocks require larger polynomials, and tfiis is why Z- 
Modem uses a 32 bit CRC. 

The polynomial usedbyXModem,XModem-lK,andYModem, 
is the well-known CCITT CRC polynomial: x''16 + x'^H + x^5 + 
1. It's a bit hard to visualize, because this is actually a cryptic 
summary that only notes the non-zero values in a binary number. 
But if we flesh it out with nulls, we get: 

1 0001 0000 0010 0001 

If you kept your eye on the ball, you will notice that aCRC-16 
has 17bits. So how do we handle the division simply, in real time, 
with a CPU having 16 bit registers? Easier than you think, thanks 
to the fact that CRC is the remainder, and the quotient is thrown 
away. 

Let's walk through a simplified CRC calculation as using a 
four bit polynomial to generate a three bit CRC; 

100010 

1001 I 100110000 
1001 
0001 
0000 
0010 
0000 
0100 
0000 
1000 
1001 
0010 
0000 
010 = CRC 

Note that the dividend is XOR'd with the polynomial only 
when a data segment has a one in the most significant bit (MSBit), 
and that thisbit in the remainderisalways reset tozero in theXOR. 
Since all we need is the remainder, the MSBit of the accumulating 
data can be used as a flag to indicate when to XOR, allowing us to 
eliminate the MSBit of the polynomial from the calculation. 

Usingthebitshift method with the same 3-bit CRC,23-bit data, 
and an abbreviated polynomial we get: 







100 


110 


000 


< 


[1] 


001 
001 


100 


00 
XOR 






000 


100 


00 
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[0] 


001 


000 
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[0] 


010 


000 




< — 


tO] 


100 


00 






[1] 


000 
001 
001 






XOR 
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[0] 


010 


= CRC 
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Screen 1 

A CRC-16 Load Screen 

ONLY FORTH ALSO FORTH DEFINITIONS 

DECIMAL 

VARIABLE CRCVAL 

2 13 THRU 

INIT-CRCTBL 

TADR i 1500 ASCII F FILL ( teat data ) 

TBITl 



WJR14NOV91 



Byte Shift Method #2 - Hi-Level 



WJR11N0V91 



Screen 5 
.\ CRC-16 

HEX 

: BYTE2-CRC16 ( data-byte - ) 

CRCVAL i 

DUP FFOO AND U2/ U2/ U2/ U2/ FFOO AND XOR 

DUP FFOO AND DUP 2* 2* 2* 2* 

SWAP U2/ U2/ U2/ ( data oldCRC tiapll tinpl2 ) 

XOR SWAP FLIP XOR XOR CRCVAL I ; 
DECIMAL 



Screen 2 

.\ CRC-16 Bit Shift Method #1 - Low Level 

HEX 

CODE (BITCRC16) ( data-byte old-ore - new-crc ) 
H POP D POP B PUSH 8 B LXI 
BEGIN 

E A MOV RLC A E MOV L A MOV 
RAL A L MOV H A MOV RAL A H MOV 
CS IF HA MOV 10 XRI A H MOV 
L A MOV 21 XRI A L MOV THEN 
C DCR 0= 
UNTIL B POP HPUSH JMP C; 

DECIMAL 



WJR11N0V91 



Byte Shift Method #3 - Lo-Level 



WJR09NOV91 



BIT1-CRC16 { data-byte - ) 
CRCVAL % (BITCRC16) CRCVAL I 



Screen 6 

.\ CRC-16 

HEX 

CODE (BYTE3-CRC16) ( data-byte old-crc - new-crc ) 

D POP H POP B PUSH H PUSH H LXI 3 C MVI 

D A MOV FO AHI RRC RRC RRC RRC D XRA A D MOV 

OF ANI RLC RLC RLC RLC E XRA A E MOV D H MOV 

BEGIN 

A ORA H A MOV 
RAR A L MOV C 

UNTIL 

E A MOV H XRA A H MOV 

B POP C XRA A L MOV 
DECIMAL 

: BYTE3-CRC16 ( data-byte - ) 

CRCVAL % (BYTE3-CRC16) CRCVAL I ; 



RAR 


A H 


MOV L 


A MOV 


DCR 


0= 






D 


A MOV 


L XRA 




B 


POP 


HPUSH 


JMP 



Screen 2 
. \ CRC-16 



Bit Shift Method #2 - High Level 
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HEX 

: BIT2-CRC16 ( data-byte - ) 

FLIP CRCVAL « 8 DO 

DUP 0< >R 2* OVER 0< IF 1+ THEN 

R> IF 1021 XOR THEN SWAP 2* SWAP 

LOOP CRCVAL I DROP ; 
DECIMAL 



Screen 7 

.\ CRC-16 Table Lookup Method #1 (1 of 2) WJR11N0V91 

: CELLS < n - n*2 ) 2* ; 

CREATE CRCTBL ( - ) 256 CELLS ALLOT 
\ : CRCTBL ( - ) PAD 200 + ; 

HEX 

: (CRC16) ( data-byte crc-index - crc-template ) 

FLIP 8 DO 

DUP 0< >R 2* OVER 0< IF 1+ THEN 

R> IF 1021 XOR THEN SWAP 2* SWAP LOOP 

NIP ; 
DECIMAL 



Screen 4 

A CRC-16 Byte Shift Method #1 - Hi-Level 

HEX 

: BYTE1-CRC16 ( data-byte - ) 

CRCVAL S FLIP 

DUP OFF AND U2/ U2/ U2/ U2/ XOR 

DUP OFF AND 

DUP 2* 2* 2* 2» OFF AND FLIP 

SWAP 2* 2* 2* 2* 2* 

( data OldCRC tmpll ten^l2 ) 

XOR XOR XOR CRCVAL I ; 
DECIMAL 
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Screen 8 
. \ CRC-16 



Table Lookup Method #1 (2 of 2) 



WJR11N0V91 



INIT-CRCTBL ( - ) 

CRCTBL 256 CELLS ERASE 

256 DO 

I (CRC16) I CELLS CRCTBL + 1 

LOOP ; 



HEX 

! TBL1-CRC16 ( data-byte - ) 
CRCVAL i FLIP DUP OFF AND 
CRCTBL + t ROT XOR SWAP 
FFOO AND XOR CRCVAL 1 ; 

DECIMAL 



2* 



The data is shifted a bit at a time into the CRC register MSBit 
first, while at the same time the MSBit of the CRC is shifted into 
the carry flag [x] . If the carry flag is set, the CRC is XOR'd with the 
shortened polynomial number, otherwise just the shift is done. 
The CRC ends up the same. Note that the pattern of the carrys, 
reading fiom top down is the same as quotient in the prior 
example. 



The CRC as done in Modem 7 is a three step process. First the 
CRC register is reset to zero. Next the data block is fed through the 
CRC generating routine. Finally, on send, null data the size of the 
CRC data type (16 bits) is fed through. The value remaining in the 
CRC register is then tacked onto the end of the data block. 
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On leceive, the same procedure is done, except that at the end 
of the datablock, it is the CRCbytes that are fed through. If all goes 
well, the value in the CRC register ends up as zero. 

Although this CRC is a standard, it is not perfect. It is not 
compatible with hardware generated CRC's because the data is 
passed to the CRC routine beginning with the MSBit. Normally, 
serial data is sent least significant bit (LSBit) first, and processed 



Table 1 

DDCMP, BSC, (EBCDIC) 

SDLC, HDLC, CCITT 

ATT, Dig. 

BSC (transcode) 

Ethernet/IEEE 802 



CRC Polynomials 
X'le + X*15 + 
X"16 + X'12 + 
X*6 + X + 1 
X*12 + X"ll + 
X"32 + X'26 + 
X'12 + X'll 
X'5 + X"4 + 



X"2 + 1 
X"5 + 1 

X"3 + X*2 + X + 1 
X*23 + X'22 + X"16 
+ X*10 + X'8 + X'7 
X'2 + X + 1 



by the hardware in that order. Also the use of nulls to begin and 
end the CRC reduces the ability to detect extraneous leadingnulls, 
or errors in long strings of null data. 

For this reason, the SDLC, HDLC, and CCITT synchronous 
protocols use a variant of the CRC, the Frame Check Sequence 
(FCS). This begins with the FCS register set to ones. The data is fed 
in LSBit first using routines otherwise similar to that for the 
Modem-7 CRC, including the same polynomial. At the end, the 
FCS register is flushed by entering data composed of ones. The 
resulting checksum value is then ones-complemented before 
being transmitted. The receive process is similar except that at the 
end, the checksum is fed in. The enor-free remainder is a non-zero 
constant, whose value depends not on the data, but on the 
polynomial used. (Or so my references say. But when I tried it out 
the error-free remainder was zero, just as with the CRC.) 

However, don't panic! Line noise still causes most of my 
modem transmission problems. This tends to generate ones, not 
nulls, and to change thebiock length to boot. Whatever defects the 
Modem-7 CRC has in theory don't seem to show up in the real 
world. 

A Cornucopia of CRCs 

Screens 2-9 show three different methods of generating the 
Modem-7 CRC's— bit-shift, byte-shift, and table lookup. Both 
high level Forth and assembly versions are given. Screens 10-12 
provide words to test and compare CRC routines. 

In the bit-shift and byte-shift assembler routines, the BC 
Register is saved early on and later restored. Don't change this in 
a misbegotten attempt to increase speed. In the CP/M version of 
Forth-83, the BC Register holds the Interpretive Pointer (IP), 
which refers to the parameter field of the currently executing 
Forth word. If you trash this register, you trash the system. So 
assembly rou tines that use the BC Register must also preserve and 
restore its contents. 

The Bit Shift CRC 

The bit-shift CRC method is a scaled up version of the second 
example given. The assembly version is just a Forth trai\slaHon of 
the original Modem-7 assembly code. Data is shifted into the CRC 
register through the carry-bit. The operating scheme is shift, test, 
and ?XOR with the polynomial (1021 hex). The highlevel version 
is less elegant because there is no ready way to test the carry-bit. 
So it checks if the MSBit is a one with 0<, since negative numbers 
have the MSBit set. The method here is to test first, save the flag, 
shift, and then ?XOR. The data bit also has to be 'shifted' into the 
CRC indirectly. 

The Byte-shift CRC 



The byte-shift method is more properly called the bit-block 
shift method. As the bits are shifted out of the CRC register, the 
MSBit acts as a trigger to activate the XOR at the other polyrwmial 
XOR points. So the bits to the left of a polynomial point behave as 
a pattern for those bits located to the right of it. 



[1] 10011101 01010011 



Polynomial XOR Points 



We can take this block of bits left of a polynomial point, and 
XOR the effected bitblock to the right of it. Of course it has to be 
done for each point, and that is where the algorithm gets tricky. 

The following is what happens with BYTE2-CRC16. 

10011101 01010011 old CRC 

1001 FFOO AND, SHR*4, FFOO AND 

XOR 
10010100 01010011 



0010100 00000000 FFOO AND, DUP 

I 

+- 0100 SHR*4 maak#l 

I I 

I 10010100 00000000 < — h 

I 

I 10010 100 SHL*3 iiia8lc#2 
+> 0100 XOR 

01010010 10000000 XOR-ten^ilate 



+ 01010011 10010100 flipped old CRC 

00000001 00010100 XOR 

00000000 01101110 data XOR 

00000001 01111010 new CRC 

Consider what happens as the CRC shifts to the left and the 
databyte is fed in. As the leftmost four bits (nibble) exits, the next 
nibble passes by the XOR point at Bit-12. For every '1' in the first 
nibble, a corresponding bit in the second nibble is XOR'd. Instead 
of proceeding a bit at a time, we could accomplish the same 
changes if we take the first nibble, shift it under the second nibble, 
and use it as a mask to XOR the bits as a block. 

Since four more bits get shifted, we need to repeat this proce- 
dure with the second and third nibble, but for the moment we just 
shift the nibble to form mask#l, and hold it. 

Now as the eight bits in the MSB shift out, the XOR point at Bit- 
5 will effect the five bits to the left of it as well as the first threebits 
of the data. By shifting the MSB three bits to the left, we get a XOR 
mask spread over two bytes (mask#2) that reflects the changes 
that would occur The two masks are XOR'd to form an XOR 
template. 

Lastly we need to consider what happens to the data as it 
passes the XOR point at Bit-0. Since every bit in the MSB effects the 
data, the entire MSB is the mask for the data. Moreover, after the 
shift, the LSB of the old-CRC must end up as the MSB of the new- 
CRC. The easiest way to get these two bytes in their proper order 
is by flipping them. The XOR template is already properly 
positioned. 

So you now have a sandwich of XOR template, flipped old 
CRC, and data-byte. When these are all XOR'd together you get 
the new-CRC. 

Like a camel, this algorithm looks strange but it works. 

The two CRC methods just discussed used Forth words for 
binary shifts. The shift left (2*) is straight forward, and is accom- 
plished not by using the bitshift opcodes, but by simply adding 
the number to itself. This is an old assembler trick that does the 
same thing but is actually faster. The shift right is more compli- 
cated as there are two of them. The first (2/) is the arithmetic shift 
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Screen 9 
.\ CRC-16 



Table Lookup Method #2 



HJR11N0V91 



CODE (TBL2-CRC16) ( data-byte old-crc erctbl • 
H POP D POP E A MOV D E MOV D MVI 
D DAD D DAD M E MOV H INX H D MOV 
D XRA AH MOV E A MOV D POP E XRA 
A L MOV HPUSH JMP C; 

t THI.2-CRC16 ( data-byte - ) 

CRCVAL % CRCTBL (TBL2-CRC16) CRCVAL 1 ; 



new-crc ) 



Screen 11 

.\ CRC-16 Te»t (2 of 3) 



HJR02NOV91 



VARIABLE GENVAL VARIABLE fOATABYTES VARIABLE TADR 
PAD 1000 ■)- TADR 1 1024 #DATABrrES I 

I CALCRC ( - ) 

TADR i #DATABrrES i BOUNDS DO I Ct UPDCRC LOOP ; 

: GENCRC ( - ) 

CLRCRC CALCRC FINCRC CRCVAL % GENVAL 1 ; 

I CHKCRC ( - ) 

CLRCRC CALCRC GENVAL 1+ Cj UPDCRC GENVAL C« UPDCRC 

CRCVAL i GENVAL t OVER 

U. U. ABORT" Check CRC Not Zero " ; 



Screen 10 

.\ CRC-16 Test (1 of 3) 
DEPER UPDCRC 

! CmCRC ( - ) CRCVAL 1 ; 

: FINCRC ( - ) UPDCRC UPE)CRC ; 



WJR14NOV91 



TKERM 

TBITl 

TBIT2 

TBYTEl 

TBYTE2 

TBT(TE3 

TTBLl 

^BIj2 



( 

( 

( 

( 

( 

( - ) 

( - ) 

( - ) 



) [ ' ] KERM1T-CRC16 IS UPDCRC 



- ) 



- ) 



[ ' ] BIT1-CRC16 IS UPDCRC 

[ ' ] BIT2-CRC16 IS UPDCRC 

[ ' ] BYTEl-CRCie IS UPDCRC 

[ ' ] BYTE2-CRC16 IS UPDCRC 

[ ' ] BrrE3-CRC16 IS UPDCRC 

[ ' ] TBL1-CRC16 IS UPDCRC 

[ ' ] TBL2-CRC16 IS UPDCRC 



Screen 12 

A CRC-16 Teat (3 of 3) WJR14NOV91 

VARIABLE #BLKS 10 #BLKS I VARIABLE DCH 70 DCH 1 

: CALOLOOP 

TADR t #DATABVTES i BOUNDS DO I Cg DROP LOOP ; 

! OLOOP ( - ) 

CRCVAL OFF #BLKS g DO CALOLOOP LOOP BEEP ; 

: TCRC ( - ) 

CRCVAL OFF #BIiKS g DO CALCRC IXWP 
CRCVAL i U. BEEP ; 

8 ITB ( - ) TADR t 1500 DCH i FILL ; 



and is used with signed integers. As the numbers are shifted right 
it copies the MSBit, which preserves the sign of the numbei; e.g. 
100111102/ becomes 1100mi,not01001111. The second (U2/)is 
the logical shift and is used with unsigned integers. As the bits 
shift right, the MSBit is set to zero. It's amazing how obscure abug 
can be if you mix up these two right shifts. 

The Table Look-up CRC 

The table lookup method makes use of the fact that the most 
significant byte merely acts as a trigger for the CRC polynomial, 
and is then discarded. Therefore, this byte uniquely defines what 
happens to the least significant byte and the data byte. If we set 
these latter bytes to zero and calculate a CRC, we form an XOR 
template that can be used to generate the new CRC. 

First you must set up a table of 256 templates calculated on a 
most significant byte incremented from to 255, and using this 
byte as an index into the template table. 



I index 



I I I Generate CRC for Tiible 



To calculate the new-CRC, you use the MSB of the old-CRC as 
an index into the CRC Table and get the template. Then XOR the 
LSB of the old-CRC with the MSB of the template, and the data 
byte with the LSB of the template. Voila! Instant new-CRC. 



(index) 


LSB 


~ 


old-CRC 


MSB 


LSB 


— 


template 


LSB-old CRC 


data byte 


— 


XOR 


MSB 


LSB 





new-CRC 



CRC How They Run 

Screens 10-12 provide words to test the CRCs. I made UPDCRC 
a deferred word so that the switching from one CRC method to 
another is easy. TBITl switches in BIT1-CRC16 into the test suite, 
and the remainder of the list does the same for the other CRCs. 



To check the accuracy of the CRC, I used GENCRC and 
CHKCRC. GENCRC acts as asend routine and generates the CRC 
from data placed at TADR. CHKCRC behaves as a receive routine 
and calculates a CRC from the data and the check sum passed in 
GENVAL. The two CRC values calculated are then displayed, 
along with any error messages . The CRC VA L f ram CHKCRC has 
to be zero, or you have a problem. 

Time tests are done by TCRC. This does a CRC on several 
blocks so that a reasonable time elapses for accuracy with hand 
timing (my Kaypro has no internal clock). I began with #BLKS set 
at 10 to get a rough estimate, and then increased it to 30 to detect 
finer differences in performance. Since some time is taken up by 



Table 


2 


CRC-16 Tests 








Sec/1-KBvte 


Sec/128-Bvte 




Rel. Sceed 


Bitl 


0.29 


0.036 


3,531 


1.45 


Bit2 


3.50 


0.44 


293 


17.47 


Bytel 


0.81 


0.10 


1,264 


4.05 


Byte2 


0.79 


0.099 


1,296 


3.95 


Byte3 


0.22 


0.028 


4,655 


1.10 


Tbll 


0.47 


0.059 


2,178 


2.35 


Tbl2 


0.20 


0.025 


5,120 


1.00 



the loop itself, OLOOP defines a null loop whose time is subtracted 
from the raw CRC times. This allows for more accurate compari- 
sons among the CRC methods. 

DCH contains the data used by ITB to fill the block pointed to 
by TADR. If you want more random data, you canpoint TADR to 
the Forth system and do a CRC on parts of it instead. 

I performed the time tests of the CRC routines on my 5 MHz. 
Kaypro II, and summarized them in Table!. Realize, though, that 
the speed of the routine is not the speed of the file transfer 
program, but it does give you a starting point for program design. 

The table lookup method proved fastest of the group in both 

the high level and assembler versions. The only disadvantage is 

See CRC, page 12 
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The Internetwork Protocol (IP) 



By Wayne Sung 



There is a very large and well-connected data network which 
covers nearly thirty countries and encompasses tens, perfiaps 
hundreds, of thousands of computers. This network is called The 
Interna. 

The Internetwork Protocol, commonly called IP, is perhaps the 
most popular protocol in wide-area networking. It also functions 
quite well in local area networks. It has been used in amateur 
packet radio networks at speeds of 1200bpsand in supercomputer 
networks up to hundreds of megabits per second, without modi- 
fication. 



"an IP implementation should be 

conservative in what it sends, liberal 

in what it receives." 



There are several advantages to using IP rather than another 
protocol. The most important of these is that IP is not owned by 
any one company. It was developed by the US Department of 
Defense and therefore belongs to all taxpayers. This means any 
company is free to implement IP. It also means that there are 
several implementations that can be considered reference models 
against which a new one can be tested. 

IP was designed specifically for survivability. Although this 
was originally meant to insure communications in battle situa- 
tions, the robustness built into IP makes it particularly able to 
handle poorly designed networks. Forexample, there isarule that 
an IP implementation should be conservative in what it sends, 
liberal in what it receives. 

This means: do as good a job as possible in making your 
implementation correct, but try to process incoming packets even 
if they are slightly malformed. This rob ustnessprinciple has often 
been neglected, particularly in local area network situations, 
because the environment is so sterile compared to what IP was 
designed for originally. 

I have noted earlier that all networks tend to get bigger with 
time. Starting with a w ell-built I P means that no software changes 
will be necessary when the network expands. 

I will not attempt to describe everything there is to know about 
IP here. Entire textbooks have been written for that purpose. In 
particular, IP is normally used with other protocols, and indeed 
may have started the w hole idea of layered protocols. These other 



Wayne Sung has been luorking with microprocessor hardware and softzvarefor over 
ten years. His job involves pushing the limits of networking hardware in attempting to 
gain as much performance as possible. In the last three years he has developed the Gag- 
a-maiic series of testers, which are meant to see if manufacturers meet their specs. 



protocols provide functions beyond what IP itself provides, 
which is primarily addressing. 

A minimum IP header is 20 bytes long, of which 11 bytes are 
involved in addressing. It has been said that IP was not designed 
by committee, and therefore all the fields in the header are actually 
necessary. This is certainly true in the minimum header, which is 
used in by far the majority of situations. 

Every IP-capable machine has at least one IP address, which is 
a 32-bit integer. The way this address is interpreted is what 
distinguishes IP's wide-area capabilities from other protocols. 
The most significant bits of the IP address are called the Network 
Number, and the other bits the Host Number. The exact division 
point depends on three classes of addresses: A, B, and C. 

Class A networks are considered 'big' networks and have eight 
bits of network number followed by 24 bits of host number. Class 
B networks are considered 'medium' size and have 16bitseach of 
network and host number. Class C networks are considered 
'small' and have 24 bits of network number and eight bits of host 
number. 

The size designation is based only on the address space 
available for host addresses, not how large an organization might 
be. For example, a company that supplies communication ser- 
vices might have switches located throughout the country. There 
might be hundreds of these switches, making it easier to use one 



"Often a company will bring up a 
network with an arbitrary network 

number only to find that when they 
have to connect to the Internet 

everything has to be renumbered." 



class B network rather than several class C networks. The com- 
pany itself might not be very large at all. 

All IP network numbers are assigned by the Defense Data 
Network's Network Information Center, commonly called the 
NIC, An organization with requirements for IP networidng re- 
quests one or more network number assignments from the NIC. 
This registration process is what guarantees IP internetworking, 
because IP packets are switched from one place to another based 
on the network addresses. 

Often a company will bring up a net- 
work with an arbitrary network number 
only to find that when they have to con- 
nect to the Internet everything has to be 
renumbered. This is why companies 



10 
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should consider applying for a network number assignment even 
if they have no immediate plans to connect to the Internet. 

To make the 32-bit number a little easier to handle, it is 
expressed in terms of four eight-bit numbers. Thus Internet 
addresses are generally seen in the form W.X.Y.Z, where each of 
W, X, Y, Z takes on values from to 255. The class distinctions fall 
on eight-bit boundaries. Class A networks use only W for the 
network nimiiber, class B networks use W.X, and d ass C networks 
useW.X.Y 



"Some systems have exploited the 

ability of Ethernet controllers to be 

given a user-defined address" 

Class A networks have numbers in the range 1 to 126. The 
values and 127 are reserved for special functions. Class B 
networks have W values in the range 128 to 191 . Class C networks 
use W values starting at 192. Notice that since class B networks 
have 16 bits of network address, there can be many more class B 
addresses than class A addresses. Similarly, since class C has 24 
bits of network address, there can be many more class C addresses 
than class B. 

When a network address is assigned, the network portion is 
filled out for you and the host fields are zeroes. Thus 10.0.0.0 is 
called Net 10, and 128.1.0.0 is called Net 128.1 (this also shows 
why a host should not be numbered 0, because this could be 
confused with the network number). 

Certain network numbers are special cases and will not be 
assigned to anyone. For example, the address 255.255.255.255 is 
considered abroadcast just as the Ethemetbioadcast address is all 
ones. Net 127 is called the 'loopback' network and is used 
internally by many IP implementations. There are also host 
numbers which should not be assigned. The address on any 
network which is all ones is also considered abroadcast, so a host 
should not be assigned that address. 

Incomparison, when you and I eachbuyanEthemet controller 
from a certain company, the controllers will have 48 bit Ethernet 
addresses which would seem to be usable for routing purposes. 
The reason they are not is that there is no guarantee that each 
controller's address falls in a particular range. If we both went to 
the store on the same day, the addresses might very well be 
adjacent. 

Without a part of the address guaranteed to be distinct across 
organizations, routers cannot be used. In essence, the Ethernet 
address is a degenerate case of routing where only the entire 
address can be guaranteed unique. This also means that the only 
way to send messages is by the entire Ethernet address, limiting 
the application to one Ethernet. 

Somesystemshaveexploi ted the ability of Ethernet controllers 
to be given a user-defined address by programming addresses 
with more carefully defined network and host portions. VWthout 
a central address authority, however, there is still no guarantee 
that any two companies can connect together Each may have 
chosen the same network portion, because many people set up 
computers using the default supplied by the manufacturer 

Thus 8 bytes of an IP header are the source and destination IP 
addresses. Every IP packet is considered distinct from every 
othei; and normally routers treat them that way. However, there 
is a sequence number (16 bits) in each IP packet. The sequence 
number does not imply that any packet is related to any othei; but 



does supply an additional value which maybe used for identifi- 
cation purposes. 

It is also possible that two hosts may be sending IP packets to 
each other, but for different reasons. There is an eight bit number 
called the protocol field which identifies what higher- layer 
protocol is being used in this particular packet. 

The remaining nine bytes of a minimum header include things 
such as a checksum (which applies to the header only), a total 
message length (which applies to the IP message itself and does 
not include the Ethernet oveihead) and other control functions 
(which are usually not used). 

Since IP systems are well-connected, many f>oint-to-point 
applications are being moved from dedicated lines to using I P as 
a universal transport. The protocol field of IP makes this quite 
simple. Note that protocol numbers in I P are also assigned by the 
NIC, as are most values in header control fields. 

1 was once shown an Ethernet analyzer which did not do a very 
good job of capturing packets based on IP addresses (or any 
protocol-specific address). The manufacturer had some trouble 
understanding that once a packet passes through a router it loses 
its original Ethernet address but retains its protocol address. 

In my case, seven Ethernet addresses represent several thou- 
sand IP addresses, as three of those seven are routers that 
concentrate traffic from many others. And that's only machines 
inside North Carolina. Two more Ethernet addresses (the external 

"Once a packet passes through a 

router it loses its original Ethernet 

address but retains its protocol 

address" 

routers) represent the rest of the whole Internet. I could not 
possibly pick out an exchange between two machines based on 
the Ethernet addresses alone. 

Obviously, there are shortcomings to IP, but there aren't many. 
I n addition, most of these are implementation issues and not bad 
design in the protocol. The biggest operaHonal problem is with 
poorly done systems. IP has so many features for robustness that 
for local-area work it's tempting to bypass many of them. This is 
particularly true for PCs, which don t have enough cycles to spare 
anyway. Fortunately, as more and more manufacturers enter the 
field, the bad versions are retired as obsolete or are fixed. 

Even though there are 16,000 class B addresses and millions of 
clciss C addresses, networks tend to be sparsely populated. Thus 
there is a problem with exhaustingnetworknumbers even though 
almost no networks are at a point where all jxissible addresses in 
it are assigned. This is the tradeoff for guaranteeing 
internetworking. Even class C addresses are going fast, as people 
tend to ask for several at a time. 

IP has a broadcast address, and system designers tend not to 
be very careful about what they broadcast. There have now been 
established class D and class E addresses which are multicast 
addresses. Obviously, in Ethernets there is an inherent multicast 
mechanism, but IP should not be thought of only in local-area 
terms. 

It has been difficult to establish multicast protocols over IP as 
a rrault. For example, newsfeeds could be multicast similarly to 
how radio does it. There you have prearranged times when the 
news is sent, and interested parties take it. In IP, a separate 
newsfeed has to be sent to each interested party. 
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There is a problem with routing information updates in the 
system of routers. Consider that over 3000 netw orks are presently 
connected to the Internet. If you only enumerate each network's 
number with one morebyte to indicate whether it is available, that 
is over 15,000 bytes of information. A 1 56 Ubps, this takes over two 
seconds of transmission, which is rather wasteful. 

The problem is being handled in two ways. First, line speeds 
are getting higher, so the transmission time is reduced eind the 
.proportion wasted is smaller. Second, update systems are being 
modified so that nothing is sent unless some change actually 
happens. This greatly reduces the amount of data to be sent. 

A somewhat more serious problem is known as the A RP-cache 
problem. Recall that in a local area network everybody is available 
through one port. It then becomes necessary to have a lookup 
table referencing IP addresses to Ethernet addresses. This is 
because the Ethernet system switches using Ethernet addresses, 
even if the application uses IP addresses. 

The mechanism that provides thiscross reference is called ARP, 
the A ddress Resolution Protocol. The initial exchange of ARP is a 
broadcast, asking the question 'does anybody on this network 
have the IP address so-and-so?' If that machine does exist, it will 
send a reply directly to the asking machine. 

Some designers thought i t desirable to retain knowledge of this 
exchange even if the original requirement is finished. They rea- 
soned that on a local area network, machines access each other 
quite often and there really is no reason to ask every time, 
especially since broadcasts should be used sparingly. 

Unfortunately, the design drops address only if it has not been 
used for any reason during a fairly long period of time. If the 
destination disappeared for any reason but the source machine 
kept trying to reach that destination, the entry would never go 
away. 

This is peirticularly painful if the destination is the external 
router, and there is a backup router available. Due to the ARP- 
cache design, thebackup is essentiallyuseless because the source 
keeps trying the original nsuter which has failed for some reason. 

The solution seems to be to drop an entry after so much time 
whether or not it has been used recently. This forces a new 
exchange every so often, so even if an address changes, there will 
only be a short outage. 

All in all, IP is a very capable protocol and is still gaining 
popularity. Extensions to the protocol are still being done and 



CRC, from page 9 

the512bytes that the table requires. The tablecanbeeither hard 
wired into a saved program, or calculated into dynamic memory. 
Setting up the table is no problem as even the slow bit-shift routine 
calculates the table in 1 .5 seconds, and that needs to be done only 
once at the beginning of the program. 

The good speed of the byte-shift methods surprised me. This 
algorithm is as tortuous as any I've ever seen. A week of doodling 
nulls and ones and scratching my head passed before I could get 
it sorted out and debugged. Even so, the high level versions could 
hold their own in a medium speed modem program. After 
finishing BYTE1-CRC16, I derived BYTE2-CRC16 to save two 
shifts per CRC update, and increased the speed by 2.5% . 

The bit-shift CRC routines finished last though they are closest 
in operation to their hardware counterparts. The high level 
version (BIT2-CRC16) amazed me by its significant lack of speed. 
Simplicity is its only virtue. 

Conclusion 

I hope that this selection of CRC routines will expand the 
op tions in designing your nex t homebrew project . 1 doubt that this 
exhausts all the algorithms as I got a whiff of one or two more in 
my explorations, but following the trail is difficult in a non- 
University setting. Meanwhile, I follow Charles Moore's 
dictum — share the code.# 
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generally do not require everyone to upgrade, showing that the 
original design was well done. 

The Internet in the United States is operated under the auspices 
of the National Science Foundation. The 'backbone', that is, the set 
of lines connecting major areas in the country to one another, has 
been operating at Tl speeds for some years now and is actively 
moving to T3 speeds. Next time we'll lookat how exactly Tl lines 
work.# 
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Z-System Corner 

Type-3 and Type-4 Programs 
Some New Applications of Type-4 Programs 

By Jay Sage 



Mors d'Oeuvres 

Beforestartingon the mainmaterial for this column, Ihave two 
subjects to discuss very briefly. First, for those waiting for the 
CPU280 tobecome available, your wait will almost surely be over 
by the time you are reading this. Ralph Beckerjust became the first 
American with a working CPU280, and he knows where to get all 
the parts. Between the two of us, we will be offering CPU280 kits. 

Second, I have just started using 4D0S, a command piocessor 
to replace those that come with MS-DOS and DR DOS. I am 
extremely impressed. [The name of the principal author of 4DOS, 
by the way, is Rex Conn, uncannily similar to that of the principal 
author of ZCPR, Rick Conn!] Like PCED, which 1 have used for 
several years and about which 1 have already written in TCJ, 
4D0S offers almost (but still not quite) everything that Z-System 
does. 1 will be talking about it in the future, and it has already been 
added to the Sage Microsystems East product line (the retail price 
is $69, but SME will have an introductory price of $60). The manual 
alone is worth the money. 1 1 is written in a Z-System style and has lots 
of good, basic information about MS-DOS-style computers. 

1 got started with 4DOS because, for reasons that are still not 
clear, I have not been able to get PCED to work in a DESQview 
window under DR DOS 6. It works outside DESQview with DR 
DOS 6 and inside a DV window with MS-DOS 3.3 (and, I am told, 
MS-DOS 5). But the combination of DR DOS 6 and DESQview just 
won't go. The problem will probably be solved, but I don't have 
the solution yet. There are still some things that PCED offers that 
4D0S does not, but the reverse is also true. 

Some time we should also talk about ZSIM12, a true CP/M 
emulator for IBM-PC-compatible computers. ZSIM provides so 
complete an emulation — farand away more complete than 22NI CE 
and Z80MU— that NZCOM runs perfectly under it. PCED, 4D0S, 
and ZSIM give us three ways to have Z-System- like functionality 
on a PC platform. 



The Main Topic 

In my last column, which recounted the historical develop- 
ment of ZCPR, I mentioned that in version 3.31 had introduced a 
revolutionary conceptforCP/M — programs that wouldbe loaded 
and run at a fixed address other than the standard lOOH. These 
programs were called, for reasons that will be explained a little 
later, type-3 programs. 

In ZCPR version 3.4, with Joe Wright leading the way, he and 
I introduced a further extension of this concept, the type-4 
program. Joe envisioned this kind of program as loading itself 
automatically as high in memory as it could possibly run given 
the current system configuration at load time. However, by 
moving the special loader code out of the command pnacessor 
(CCP) and into the program header, I not only saved code space 
in the CCPbut also made the type-4 loader concept more general. 

Until recently, however, no one had developed any type-4 
loaders other than the one, released with ZCPR34, that performed 
the task Joe wanted to achieve. This column will present several 
new examples that I hope will promote some creative thought on 
the part of readers. 

The Type-3 Program 

Programs writtenspecifically for ZCPR version 3.0began with 
special header code having the following form: 



org lOOh 




; Programs always start at lOOH 


JP 


start 


; Jump past the header 


db 


■Z3ENV' 


; ID to Identify a Z program 


db 


progtype 


; Type of Z program 


dw 


envaddr 


; Address of ENV module 


start: 




; remainder of program code 



]ay Sage has been an avid ZCPR proponent since the very first version appeared. He is 
best known as theauthorofthelatest versions 3.3 and3.4 oftheZCPR command processor, 
his ARUNZ alias processor and ZFILER, a " point -and-shoot" shell 

When Echdon announcedits plan to set upanetworkqfremoteaccess computer systems 
tosupport ZCPR3, ]ay volunteered immediately. He has been running Z-Node#3for more 
than six years and can be reached there electronically at 617-965-7259 (MABOS on PC 
Pursuit, pw=DDT). Jay is the Z-System sysop on the GEnie CP/M Roundtableand can 
be contacted as J AY.S AGE via GEnie mail, or chatted with liveat the Wednesday real-time 
conferences(10p.m.Easterntime).Hecanalsobereachedbyvoiceat 617-965-3552. Agood 
time to find him at home is between 11 p.m. and midnight but please do not call Fridays 
or Saturdays, fay's mailing address is 1435 Centre Street, Newton Centre MA02159. 

In real life, Jay is a physicist at MIT, where he tries to invent devices and ciKuits that 
useanalogcomputation tosolveproblems in signal, image and information processing. His 
recent interestsincludeartificialneuralnetworksandsuperconductingelectronics.Hecan 
be reached at work via Internet as SAGE@LL.MIT.EDU. 



The program begins with a jump instruction to make execu- 

tion skip over the header material. Right 

after that comes an ASCII string, 'Z3ENV', 
which can be used by other programs 
(including the command processor) to 
determine that this is a Z-specific pro- 
gram. 

Next comes a byte that contains a pro- 
gram-type value. A value of 1 (binary, not 
ASCII) indicates that the program refer- 
ences an external environment module 
(ENV), which isa virtually universal com- 
ponent of a ZCPR3 system. This module 
contains information about how the 
ZCPR3 system is configured, such as 
module addresses and sizes. 
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Listing 1 






Id hi, (execadr) ; Get current execution address 


com: 




Process transient command 


call z3chlc ; See if file is a Z3 program 
Id de,z3env ; Get actual ENV address 


Id 


hl,tpa 


Set default execution/load address 


jr nz, execute ; Branch if not Z3 


Id 


a, 3 


Dynamically lead type-3 and above EHVs 




call 


mload 


Load memory with file specified 


cp 2 ; If type-2 (internal) environment 






in cmd line 


jr z, execute ; ..do not perform installation 


; Next two 


lines added by Bruce Morgen 




jr 


nc f ccmnrml 


If not special Type 4, cany is clear 


; Install types 0, 1, 3 and 4 (I don't think type-0 exists) 


Id 


(execadr) ,hl 


; Revifle load address, special I^pe 4 b/m 




comnrml: 






inc hi ; Advanoe to place to put Z3SSV address 







Some code omitted here 


Id (hi) ,e ; Put in low byte of envircxinent address 
inc hi 


; Copy command tail into 


TBUFF 


Id (hi) ,d ; Put in hic^ tyte cC envlrcnnEnt addlress 


callprogl ! 






; Test for RST as first byte and change to JP if so 


tailsv 


equ $+1 


Pointer for in-the-code modification 




Id 


hl,0 


Address of first character of 


Id hi, (execadr) ; Point to first byte of program code 






cooimand tail 


Id a, (hi) 


Id 


de,tbuff 


Point to TBUFF 


cp 0c7h ; Test for RST 


push 


de 


Save pointer 


jr nz, execute 


Id 


bc,7E00h 


C=0 (tyte counter) and B=7F (max >:ytee) 


id (hl),0c3h ; Replace with JP instruction 


tail: 




Loop to copy tail 









Seme code omitted here 


; Execution of the program occurs here by calling it as 
; a subroutine 


; Run loaded transient program 










execute : 


call 


defltdma 


Set DMA to 0080h standard value 


ex de,hl ; Pass Z3ENV address to program in HL 


; Perform automatic installation of Z3 programs (unless 


execadr equ $+1 ; Pointer for in-line code modification 


; type-2 environment) 




call tpa ; Call transient (or resident) 








; Return from execution 



Listing 2 

mload: 

Id (envtype),a ; Set up in-the-code modification below 

Id (execadr), hi ; Set up execution/ load address 

call defltdma ; Set CMA address to 80H for file searches 

.... ; Code for searching path omitted 

.... ; Code for extended command 

; processing emitted 



Open file for input 
Scene code omitted here 
Read first record into default 
DMA address 

Branch if zero-length file 
; Set file current record back to zero 
Pointer to start of code 



call 


opennwl 


call 


readcmd 


jr 


nz,mload5 


Id 


(cmdfcb+32) 


Id 


hl,tbuff 


call 


z3chk 


Id 


hi, (execadr 


jr 


nz,mload4 



; Get initial loading address 
If not Z3 file, branch 



; The following test is modified by earlier code. For normal 
; COM file loading, a 3 is inserted for the minimum 
; environment type for dynamic load address determination. 
; For the GET ccmmand, where the user-specified address 
; should be used, a value of OFFH is put in here so the 
; carry flag will always be set. 

envtype equ $+1 ; Pointer for in-the-code modification 
cp 3 ; See if no higher than a type-2 

; environment 
jr c,mload4 ; If lower than type 3 (or 255), branch 
Id hi, (tbuff+11) ; Load address in case type-3 
jr z,mload3b ; Type 3 command, do that 

; As not 1, 2 or 3, assume Type 4 command 

.... ; Some code omitted 

; Type 4 header does its own calculations 



Id hl,cmdfcb+32 



; Hake HL point to xecccd count byte 



Id 



(hi), 2 



call 


readcmd 


jr 


nz,mload5 


Id 


(hi), a 


Id 


hi, (tbuff+11 


call 


readcmd 


Id 


a,fullget 


Id 


b,h 


Id 


c,l 


Id 


de, entry 


Id 


hl,z3env 


call 


tbuff+9 


call 


resulcmd 



Set record count to 2 (had 

been reset to 0) 

Record 2 into tbuff 

File too short 

AfO f ran READOO into reooid count 

; Size info from code section 
Record into tbuff again 
He need this flag 

Get size info into BC 

Beginning of COP 

Pass EnvDisc address 7 

Call Type 4 loader 

Reeu} record 1 to tbuff (point to 

record 2) 



mload3b: 

Id (execadr), hi ; Set new execution/load address 
; — returned by type 4 loader I 

; Load the file, making sure neither CPR nor protected 
; memory is overwritten 

mload4 : 

.... ; Loading code emitted 

call closcmd ; Close loaded file 

; In case a program would like to find out in what 

; directory the ccmmand processor found the program, 

; temporary DU is stored in bytes 13 (user) and 14 (drive) 

; in the ccmmand FCB. 

tenpusr equ $+1 ; I^ainters for in-the-oode mrrti fication 

teller equ 5+2 

Id hl,0 

Id (cmdfcb+13),hl 



logcurrent : 



; Return to original logged directory 



Id de,(curusr) 
jp logde 
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APR0GTYPEvalueof2(thoughIdon'fbelieveIeveractually 
saw it used) would indicate that the EN V data block was included 
(as an extended header) within the program code itself. This was 
a vestige from ZCPR2, with which Z programs had to have the 
environment information configured into the program. 

WithZCPR33 1 introduced programs with a PROGTYPE value 
of 3 and a slightly extended header. Its form became the following: 



org entry 




; Programa start at ANY ADDRESS 


jp 


start 


; Jump past the header 


db 


■Z3ENV 


; ID to identify a Z program 


db 


3 


; Type of Z program 


dw 


envaddr 


; Address of ENV module 


dw 


entry 


; Load address for program 


start: 




; remainder of program code 



There is an extra word (i.e., two bytes) following the program- 
type byte. This woni contains the address to which the program 
was assembled/linked and to which the ZCPR33 command 
processor was to load and execute the program. 

Asaquickaside,therewasbnethingthatl didn't think of when 
I created this kind of program. If one tried to run it under either 
CP/M or ZCPR version 3.0, the command processor would not 
know about type-3 programs. It would load the type-3 program 
to the standard lOOH address and then start to run it. The "JP 
START" instruction would still go to the place where it would 
have gone had the program been loaded to the specified ENTRY 
address. Since the code was not in fact loaded there, very strange — 
and almost always unpleasant — behavior would result. 

Others later developed a fix for this. The "JP START" was 
replaced by "JR START", a relative jump. This would work no 
matter where the program was loaded. Special lead-incode at the 
START address would determine the actual load address and 
compare it to the proper type-3 load address stored in the header. 
If the addresses did not match, an error message would be 
displayed, and execution would terminate before any damage 
was done. This entire pieceof protection code must, of course, use 
only location-independent instructions. 

The Type-4 Program 

The loading of a type-3 program presents no special challenges 
to the command processor. It simply copies the contents of the 
program'sCOM file intomemorystartingat the specified address 
rather than the standard address of lOOH. A type-4 program, on 
the other hand, is going tobe loaded and run at different addresses 



at different times; the COM file carmot, therefore, contain the 
actual code as it is to be run. 

The problem of storing code in a form that permits it to run at 
arbitrary addresses had been solved long ago using w ha t is called 
a PRL file, where PRL stands for "Page ReLocatable". This file 
comprises two major parts. The first part is the actual code 
assembled forastartingaddressoflOOH. This is followed by what 
is called a bitmap. The bitmap tells which bytes in the lOOH- 
address code have to be adjusted in order for the code to run at 
another address. Eachbyte in thebitmap has 8bits and can cover 
8 bytes of the program code. Thus, the bitmap is one- eighth the 
length of the code. 

A PRL fi le has one other component, a one-page ( = two records 
= 256bytes) header in front of the two parts I described above. This 
header is almost completely empty (i.e., filled with zeros). The 
only data it contains is in bytes 1 and 2 (where the bytes are 
numbered starting with 0). There it stores the length of the code 
portion of the file. This value allows whatever routine carries out 
the relocation to determine where the code ends and the bitmap 
begins. 

Another quick aside. The first by te, by te 0, is filled w ith a " RSI 
0" instruction, a one-byte opcode that performs a call to address 
OOOOH. This irutiates a warmboot. Thus, if an attempt is made to 
execute a type-4 program under any version of the command 
processor other than ZCPR34 or later, the program will simply 
reboot. This is not as nice as displaying an error message, but it is 
a lot better than trying to execute a raw type-4 file! To allow this 
sameprotection tobe used with type-3programs,someextra code 
was added to ZCPR34 to replace a leading "RST 0" instruction 
with a "JP" opcode at load time. 

Now back to the matter of how ZCPR34 handles type-4 
programs. ZCPR34 needs to accomplish two tasks in connection 
with loading a type-4 program. First, it has to determine the 
address to which the code should be loaded. Second, it has to 
perform the address relocation to permit it to run at that address. 
To do this, it makes use of code in the CCP together with code 
placed into the available space in the PRL header. How it does this 
is really quite tricky, and I doubt that anyone other than Joe Wright 
could have come up with the code to do it! 

Since we don't want the type-4 program to interfere with any 
user code currently residing in memory, we have a problem 
figuring out where to execute the loader code. Had it been placed 
entirely in the command processor, there would have been no 
problem, but a lot of valuable code space would have been taken 
up. 



Listing 3 

; Program: TYP4LDR.Z80 

; Authors: Joe Wright, Bridger Mitchell, Jay Sage 

; Contributors; Bruce Morgen 


; calculate load address as if RSX defines tcp of TPA 

; calculate load address as if OCT defines top of TPA 

; keep the lower of those two values 

; opticnally force page aligment 

; set up sane data on stack for seoDnd part of loader 

; return to OCP with load address in HL 


; Record Routine - Load Address Calculator 

org lOOh ; ORG HEX file at lOOh 

.phasetbuff ; Program actually runs at 80h 

recO: rst ; Anything but ZCPR34 will warmboot 
length: ds 2 ; Length of the code module (SPR or PRL) 

db 'Z3ENV' ; Z program ID 

db 4 ; A Type 4 program 

start: ; cCP calls the code at this point 

; stack and register manipulations 

; calculation of roan needed for program, including bitmap 

; adjustment for fullget status 

; choose larger of load size and noiory size as space required 


; Record 1 Routine — Code Relocator 

.phase tbuff ; This code also runs at 80K 

; stack and register manipulations 

; make sure header of loaded code has type 4 set 

; perform relocation of the code 

; return to CCP 

.dephaae ; Good Housekeeping 

end 

; End of TYP4LDR.Z80 Relocator 
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Listing 4 

; Now calculate poeslble load addreaa aasumlng OCP definea tcp cf OPA 

pop hi ; CCP addreas ;(-f4) 

call adjaddr ; Calculate addreaa and keep icweat 

; HERE IS THE NEW CODEI 

; Finally, calculate the poesible load address using the value 
; specified in the program header. If this value ie lower than 
; the hic^iest possible address, then it vd.ll be used. Otherwise, 
; the hi^iest poesible value will be used. 

Id de,(ldaddr) ; Get specified load address 
xor a ; Hake sure carry flag is clear 

call adjadrl ; Keep Icwer address 

; Get reeuJy to return to CCP 

loadaddr equ $-1-1 

Id de,-l ; Get final value of load address 



; Force page alignment (A=0) 



; Get file size ;(+2) 

; Pass load address to ieooid-1 routine 

;(+4) 

; Hold a copy on the stack for now 

;(+6) 



if align 
Id e,a 
endif 


pop 
push 


hi 
de 


push 


de 



Id hl,tbuff ; Set for for 0(7 to call second racord 
ex (sp) ,hl ; Lnad address to HL, tbuff to tcp cf atadc 



if test 
rst 38h 
endif 



load: jp 



; DDT breakpoint 



Return to CCP (hot-patched above) 
Carmand processor loads record 1 to 
. .tbuff and records 2-^ to load 
..address, then 'retuma' to tbuff 
..to finish loading 



; This subroutine takes an address for the top of TPA in HL and 

; the amount of raamry required in DE and ccnputes the proper 

; loed address. It then cczifarea it to the value stored at 

; LQADADCR and replaces the value there if the na« value is lower. 



adjaddr: 

xor a 
sbc hl,de 
ex de , hi 

adjadrl: 



; Clear carry flag 

; Ccmpute new possible load address 

; ..and put it in DE 

; THIS IS A NEW LABELl 



Id hi , ( loadaddr ) ; Get previously ocnpited Icsd adlcess 

sbc hl,de ; Ccmpare HL and DE 

ret c ; HL is lower, nothing to do 

Id ( loadaddr ),de ; New lower address 

ret 



There is one area in memory that is available as a scratchbuffer: 
the second half of the base page from 0080H to OOFFH. This area 
is used to store the command tail when a program is run, and it 
is the default buffer used by many programs for transferring data 
to and from disk. We w ill now describe in very general terms how 
the ZCPR34 command processor uses this space. 

1 1 beginsby loading the first record of the header(record 0) into 
the buffer. After placing some important information into regis- 
ters in the CPU (the microprocessor Central Processing Unit), the 
CCP calls the code there (but not at the very beginning, as we will 
see later). This code computes the address to which the program 
should be loaded and puts it into the HL register pair. It then 
pushes the address of the default buffer onto the stack and jumps 
back to the command processor 

The command processor now loads the second record of the 
PRL header file (record 1) into the default buffer and then 
continues with its standard loading code, just as if it were dealing 
with a type-1 program (in which case HL would have been set to 
lOOH) or a type-3 program (in which case HL would havebeenset 
to the load address stored in the type-3 header). Asa result, all of 
the file from record 2 to the end, including both the code and the 
bitmap, is loaded into memoryattheaddressspecifiedbythe first 
PRL header routine. 

Once the CCP loader subroutine (MLO AD) has completed its 
work, it executes a RET instruction. This would normally return 
to the CCP code after the call to MLO AD. At that point the CCP 
transfers execution to the beginning of the program that was just 
loaded. In thecaseof a type-4 piogram, however, the stack has had 
the address of the default buffer, 80H, pushed onto it, and so 
execution resumes instead with the second routine from the PRL 
header This code carries out the relocation of the program code 
so that it can be executed at the address to which it has been 
loaded. When that operation is finished, a RET instruction finally 
returns control to the CCP after the "CALL MLO AD" instruction. 
The type-4 program is now executed. 

For those who may be interested, I have included some 
fragments from the ZCPR34 source code in Listings 1 and 2. 



Listing 1 contains the code that ZCPR34 calls to load transient 
programs. It starts with a call to MLO AD after setting the HL 
register pair to the default load address of lOOH. 

MLO AD is an incredibly hard-working subroutine, excerpts 
of which are shown in Listing 2. 1 f you look at the code, you will 
see how it loads the first record into the default buffer and then 
systematically determines what type program it is. It first identi- 
fies standard CP/M programs and branches to the file-loading 
code with HL set to lOOH. Next it identifies Z programs of types 
less than 3 and again branches to the code with HL set to lOOH. 

Then, if the program is type 3, it fetches the load address from 
the header at an offset of 11 bytes, puts that value into HL, and 
proceeds with the loading code. If things have not been taken care 
of by now, the code assumes that it has a type-4 program. If you 
look at the code carefully, you will see that there is an additiorial 
complexity that I have not described (and will not) . Suffice it tosay 
that it requires a good bit of juggling of the records loaded into the 
default buffer. 

You can see where the ZCPR34 code makes a call to TBUFF+9. 
This starts the execution of the code in the first record of the type- 
4 header On return from that code, the second record is read in, 
and the load address in HLis stored as the execution address. The 
rest of the program file is loaded just as other programs are (but 
startingwithrecord2insteadof r«:ord 0),and thenthecodejumps 
to the LOGDE routine. When that routine is finished, its RET 
instruction is what starts execution of the second record of the 
type-4 loader. 

The Standard Type-4 Header 

The latest version of the standard type-4 header used in all 
type-4 programs distributed to date is available in the file 
T4LDR11.Z80. Listing 3 contains a pseudo-code version of the 
source code. 

The first record begins with the standard ID header for a Z 
program. That is followed by code to calculate the proper load 
address taking into account a considerable number of different 
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possibilities (for example, various ways to determine the space 
needed by the program and the top of available memory). All this 
functionality has to be accomplished in only 119bytes. Joe Wright 
and others who helped him (including Bruce Moigen) have had 
to be very careful and clever in the coding. 

All I will say additionally about the second record is that it uses 
some clever relocation routines developed by Bridger Mitchell. I 
have not looked to be sure, but I believe these routines were 
described in one of Bridger's coliunns here in TQ a while back. 

A Type-3-Llke Type-4 Loader 

For my first example of a new type-4 loader, 1 am going to show 
you one that makes a type-4 program act like a type-3 program, 
but with the fixed load address determined not at assembly time 
but simply by patching in the address. In this way, it would be 
possible to distribute a program that acts like a type-3 program 
but where the user could choose his/her own load address 
without having to know anything about assembling and linking 
code. 

Why would one ever want to use a type-3 program instead of 
the standard type-4 that automatically loads itself as high as 
possible? Well, I can think of one situation for sure. Suppose one 
wants to use the JUMP command to rerun it? 1 1 is true that many 
type-4 programs display a signon message that repwrts the actual 
load address, and this address could then be used with the JUMP 



Listing 5 

Program: T4PLDR.Z80 

Authors: Jay Sage 

Date: December 17, 1988 

This type-4 loader piaipts the user for the desired load address. A 
single digit between '0' and '9' is entered. If '0', the program is 
loajed to lOOH For any other digit, the load address la that digit 
followed by "OOOh". Ohus '4' causes the program to load at 4000h. 
There is no checking to maJos sure that the specified address is 
S2ife; this, the syston can be crashed if too high a Iced address 
is specified. 



vers equ 10 
tbuff equ 80h 



; Always executes frcm default buffer 



Macroe for printing spaoe free have been emitted here, and their 
invocations later in the code have been stripped out. The 
entire second record has also been emitted, since it is the same 
as the standard one in T4ID(U1.Z80. 



Record Routine — Load Address Calculator 

On entry, we have; 

HL « Z3ENV, environment descriptor address 
DE = ENTRY, address of beginning of CCP 
BC = PROGSIZE, program size from program header 
in record 2 
A = FUIXGET flag 

; ORG HEX file at lOOh 

; Program actually runs at 80h 

; Only a ZCPR34-con^atible CCP 
; . . can execute this file 
; Length of the code 

; A Type 4 program 

; Get return address frcm stack 
; . . and put Z 3ENV on the stack 



org 


lOOh 


.piaae 


tbuff 


recO; rat 





length: 


ds 2 


db 


•Z3ENV' 


db 


4 



start: ex (sp),hl 



command. Howevei; this requires that one pay careful attention 
to the signon message, and it rules out using a JUMP command 
in an alias, where the address has to be fixed and known in 
advance. 

I will be distributing this loader in the file T4T3LDR1.Z80. Its 
header is modified to the following form: 



rst 






; Warmboot if 


executed 








dw 




length 


; Code length 


db 




■Z3E1IV 


; ID to identify a 


Z program 








db 




4 


J Type-.4 


program 








dw 




envaddr 


; Address of ENV 


module 








; Entry point 


of 


loader code 




ir 




start 


; Jump past extra 


header 








db 




•ADDR=' 


; String to 


identify patch point 




dw 




loadaddr 


; Patch fixed load 


address here 








start: 






; Resume with 


T4LDR11.Z80 code 







There is a place for the user to patch in a fixed load address to 
be used. This location is made easy to find by the ASCII string in 
front of it. 



Id (load+1) ,hl ; Set in-line -janfi to the return address 

Id hi, (length) ; Length of this PRL/SPR code 

push hi ; Save en stack for sector 1 routine ;(+2) 

Now we need to get the load address. 



Id 

Id 

Id 

Id 

call 

Id 

call 

Id 

Id 

cp 

jr 

cp 

jr 

sub 

add 

add 

add 

add 

Id 



(stack) ,sp 

sp, stack 

c,9 

de, message 

5 

c,l 

S 

sp, (stack) 

hl.lOOh 

'1' 

c, resume 

'9'+l 

nc, resume 

'0' 

a, a 

a, a 

a, a 

a, a 

h,a 



push hi 

push hi 

id hi, tbuff 

ex (sp),hX 



loeul: jp 



Save stack pointer 

Set up local stack pointer 

BDOS string output routine 



; BDOS conin function 

; Restore original stack pointer 

; Default load address 
See if less than '1' 
If so, use default address 
See if between '1' and '9' 
If not, use default address 
Convert to binary 
Multiply by 16 (lOH) 



Use as load culdress 



Pass load ciddress to reoord-1 routine 

(+4) 

Fill another stack entry ;(+6) 

Set for far CCP to rail seacnd reccird 

Make ZCPR34 go to tbuff, and return 

. .with load address in HL 

Return to CCP (hot -patched above) 
Ccmnand pzooessor loads record 1 to tbuff 
. .and records 2+ to load address, then 
..'returns' to tbuff 



message: 

db 'Digit (0-9) for load address: $' 



ds 
stack: ds 



2*13 
2 



; Space for local stack 

; Plaoe to keep original stack pointer 



.dephase 
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The rest of the code is the same as that in T4LDR11 .Z80 except 
that at the very end, after the highest possible load address has 
been calculated, it is compared to the fixed load address specified . 
If the fixed address is lower than the highest allowed, then its 
value is put into HL. If the fixed address specified is too high, then 
the highest possible value is used instead. Very little additional 
code is required because the comparison code is already available 
In an existing subroutine. The new code is shown in Listing 4. 

Installing a New Type-4 Loader 

Before going on to the second example of a new type-4 loader, 
1 would like to describe how these new loaders can be installed 
into an existing type-4 program so that you can experiment. One 
of the nice things about the way type-4 programs are imple- 
mented in ZCPR34 is that you do not need source code for the 
program. A new loader canbe installed at any time. You need only 
the loader code in the form of a HEX file, which you can either 
generate yourself from the loader source code or get from some- 
one else who has done the assembly. 

To make the HEX file, you assemble the loader source with the 
appnapriate assembler switch on the command line. For example, 
with ZMAC or the SLR Z80ASM assemblers the command lines 
would be 

ZHAC T4T3LDR1/H 
Z80ASM T4T3LDR1/H 



Once you have the HEX file (e.g., T4T3LDR1 .HEX), you install 
it onto a type-4 program (let's call it PR0G.COM) using MLO AD 
or MYLOAD, public-domain loader utilities available through 
the ZSUS service or from Z-Nodes and, in the case of MLO AD, 
many RCPM systems. Here is the command line to make a new 
version of PR0G.COM with the new loader: 

MIXXAD FROGNEW.COM=PROG.COM,T4T3LDRl.HEX 

A More Elegant Type-3-Like Loader 

Well, now we have a type-4 program that canbe patched easily 
to load the program to any address we like. How about making 
life even nicer by having the loader ask us — at the time of 
loading — ^where we would like the code loaded? We can then 
easily load the program to different addresses each time we run 
it without the nuisance of having to patch it. [Here is an exercise 
for the reader: why can't we use the GET/POKE/ GO or GET/ 
POKE/JUMP techniques to hot patch the address into the type-4 
program (or do any hot patching at all)? Hint: will the GO or 
JUMP commands work right?] 

This second new loader contains none of the code for calculat- 
ing the load address that T4LDR11 has. Instead, it puts up a 
prompt and waits for the user to press a digit key between ' 1' and 
'9'. If an illegal key is pressed, the code is loaded to address lOOH. 
For legal digits, the value is mulfiplied by lOOOH, and that value 



Listing 6 


Id 


(load+l),hl 


; Set in-line junp to the return address 


; Program: T4MBLDR.Z80 


Id 


hi, (length) 


; Length of this PRL/SPR code 


; Authors: Jay Sage 


push 


hi 


; Save on stack for sector 1 routine ;(+2) 


; Date: December 17, 1988 










; Report load address to user. | 


; This type-4 loader is similar to T4T3IJDR.Z80 but with two 








; inportant differences. First, it locds the code to the wVlreaa 


Id 


( stack ),sp 


; Save stack pointer 


; specified in the header without any checking, and, second, it 


Id 


sp, stack 


; Set up local stack pointer 


; does not exEcuta the code. It uses Bmoe Morgen's nrWItion to 


Id 


c,9 


; BDOS string output routine 


; ZCPR34E that allcMs the execution address to be changsd to the 


Id 


de, message 




; value returned in HL by the second record of loader code v*en 


call 


bdos 




; the carry flag is set. This loader sets that address to 


Id 


sp, (stack) 


; Restore original stack pointer 


; OOOOH to force a warm boot. 










Id 


hi, (idaddr) 


; Get load address frcm header 


vers equ 10 


push 


hi 


; Pass load addieea to reocrd-l routine ;(+4) 


tbuf f equ 80h ; Always executes ficm the default buffer 


push 


hi 


; Fill another stack entry ;(+6) 


bdos equ 05h ; BDOS entry point 


Id 


hl.tbuff 


; Set for for CCP to call second record 




ex 


(sp),hl 


; tfeke ZCPR34 go to tbuff , and return with 


; Macro definitions that «e included here and their Invocaticns 






; . . load address in HL 


; later in the code have been emitted. Sane caiments that 








; dt^licate material in other listing have also been strlrped out. 


load: jp 





; Return to CCP (hot-patched above) 
; Command processor loads record 1 to 
; ..tbuff and records 2+ to load 




; Record Routine — Load Address Calculator 






; ..address, then 'returns' to tbuff 


org lOOh ; ORG HEX file at lOOh 


ds 


2*13 


; Space for local stack 




stack: 


ds 2 


; Place to keep original stack pointsir 


.phase tbuf f ; Program actually runs at 80h 










.dephase 




recO: rst 


• Only a ZCPR34-cnmpatible CCP 
■ ..can execute this file 








length: ds 2 


• Length of the code 


; Record 1 


Routine — 


Code Relocator 


db 'Z3ENV' 


; Standard 


code from T4LDR11.Z80 omitted. Vte pick up with 


db 4 ; A Type 4 program 


; the new code right after the relocation is cotnplete and | 




; interrupt 


8 are reenabled. | 


jr start ; Jump past load address 










Id 


hl,0 


; Force warm boot 


db 'ADDR=' 


ASCII marker 


scf 




; Set carry flag so HL will be used 


Idaddr: dw lOOOH 


This value should be patched to the 
. .desired load address 


ret 




,- Return to ML0AD3's caller in ZCPR34 


message : 


Patch the message, too 


.deph 


ase 


; Good Housekeeping 


db 'Code loaded to address 1000H$' 


end 






start: ex (sp),hl ; Get return address from stack 






; . . and put Z 3ENV on the stack 


; End of T4WBLDR.Z80 Relocator 
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is used as the load address. No checking is performed to insure 
that the code can safely be loaded to the requested address. The 
user must accept that responsibility. It would be nice if the code 
could check the address, but the basic code barely fits as it is in the 
space allowed. 

The code for the second record (the relocation routine) is the 
same as in T4LDR11 . The new code for the first record is shown 
in Listing 5. You wUl notice that an internal stack is provided. 
When 1 tested this code, 1 found that the CCP stack could not hold 
everything that XBIOS pushed onto the stack during the BDOS 
function calls. As I recall, Howard Goldstein did not have this 
problem when he tested the code on a different computer. Includ- 
ing the local stack in the code seemed to be prudent. 

ZCPR34 Release E 

Howard Goldstein recently finished implementing a number 
of minor bug fixes in the ZCPR34D code, which had been the 
standard production version for some time. A t the same time, he 
also added a new feature invented by Bruce Moigen. The result is 
version 3.4E. 

1 will not go into Bruce's reasons for intioducing this innova- 
tion, partly because this column is already long enough and partly 
because 1 don't really remember right now exactly what all of his 
reasons were. However, my final exsimple will make use of this 
new feature. Please bear in mind, however, that unless you have 
ZCPR version 3.4E (which few people have), this final type-4 
loader will not work. If anyone who owns a copy of ZCPR34 
wants to experiment with this new feature, plesise contact me 
about getting the updated version. 

1 n the previous versions of ZCPR34, as we described above, the 
first record in the type-4 loader calculates the load address ai\d 
passes it back to the command processor. The command proces- 
sor then loads the code to that address, adjusts any addresses in 
the code (that's the relocation), and then — here is the crucial 
point — executes the code at that load address. Bruce's change 
allows the execution address to be determined independently of 
the load address. 

Here is the essence of Bruce's observation. The second loader 
routine normally just performs the code relocation and then 
returns to the command processor, which proceeds to execute the 



code. However, some interesting possibilities can be intixxluced 
by allowing this second routine to decide that the execution 
address should be changed from the load address that was 
calculated by the first loader routine. Bruce observed that the 
carry flag happened to have been left clear (reset) by all existing 
type-4 loaders and by the internal CCP code used to load all other 
types of programs. Bruce added a tiny bit of code to ZCPR34 (you 
can see it very near the begi nning of List ing 1 ) to have it check the 
carry flag. 1 f the flag is set, then the contents of the HL register pair 
are copied into the execution address stored in the CCP. 

Our final example of a new loader, T4WBLDR1, is a further 
variation suggested by TCJ editor/ publisher Chris McEwen. 
When I showed him T4T3LDR, he noted that it could be used to 
install code as a kind of TSR (this is an MS-DOS term for 
Terminate-and-Stay-Resident, code that loads itself and remains 
in place for further use) in the NZCOM user buffer area, 
T4WBLDR1 can be used that way. 

The one essential change is a small addition to the code in the 
second header record to load the HL register pair with the address 
OOOOHandset the carry flag before returning. This causes ZCPR 34 
to perform a warmboot (whose entry point is at address zero) 
instead of executing the newly loaded and relocated type-4 
program code. The code is now available for execution by the 
JUMP command at a later time. 

Since the NZCOM user buffer area is above the CCP entry 
address, the usual address verification code in the first record of 
the header in T4T3LDR would refuse to use the sped fied address. 
To get around that, we simply remove cdl of that code and accept 
the user-specified address without questioning. Listing 6 shows 
the code for T4WBLDR1.Z80. 

Conclusion 

The implementation of the type-4 program follows the tradi- 
tion of modularity and flexibility that is the hallmark of the 
Z-System. Because of those two characteristics, there are always 
more ways to use any Z-System facility than its authors envi- 
sioned when they created it, and this allows for and encourages 
a steady stream of interesting new developments. I hope my 
examples here will inspire more innovation in the area of type-4 
programs. • 



Computer Comer, from page 48 

of contents, and then select one section and home in on it. I f that 

section meets their muster it is a buy, if not, sale lost. 

FORTH DAY 

That overly thick manual was up for sale at the November 
Forth DAY in the San Francisco bay meeting. I saw lots of people 
look at it and put it back down quickly. Time is far too short for 
most people these days. Buying any new project that requires tons 
of reading to master it, just doesn't cut it. Don't get me wrong, if 
I need to use the product, 1 will wade through all the pages to find 
out what I need. However don't ask me to be happy about it. 

Well 1 would say being happy about Forth was not on the 
agenda at Forth Day. It seems people are still concerned about 
where Forth is going, if it is going anywhere at Eill. There were 
some good speakers and a few good products for sale. About the 
only real news item was SUN's and Bradley's pushing for a 
standaixl FORTH ROM BASED DEBUGGER, As some of you 
know the SUN's SPARC based computers boot from a Forth 



based ROM. Also the expansion cards all have Forth based 
routines that load their drivers. 

Well SUN is so happy with this operation that they are pushing 
to get a standard word set and operational structure established. 
It sounded like it will stay rather closely to what the SUNS' ROM 
does now, but soon all manufacturers may start changing their 
ROM BIOS's to Forth. From a maintenance stand point I can not 
support it strong enough. I hate how each vendors debugger 
works differently as well as always having just too few options to 
solve my problem. 

On Forth itself, things look rather flat. Some more chips are 
scheduled to come out from Chuck Moore, These will be 200 MHz 
machines nmning a form of Forth. Chuck designs the chips with 
his own Forth based CAD system. He does this because none of 
the chip making CAD systems on the market can do what his 
does. It also means he can add features as he sees a need for them. 
Will these new machines make any big inroads, I doubt it as well 
as Chuck doubts it. Seems nobody believes he can make a 200 

See Computer Comer, page 21 
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HARDWARE HEAVEN 

Trade Mags 

By Paul Chidley 



Back Again? 

Well, curses on you all! Well not really. I wrote the first article 
just to let off some steam. Unfortunately someone must of liked 
it because I was asked to write some more. In some ways I was 
kind of hoping someone would like it, but I had hoped that 
enough people would say thumbs down so I could spend my 
afternoons smoking chips instead of typing at my desk. So after 
a few hours of sniffing solder fumes here 1 am with Hardware 
Heaven number two. 

Now, first let me say that this was not my pick for a title for this 
column. My first choice 1 rejected myself to avoid aliablesuit from 
another column. My second choice, TCL/ turned down probably 
because they wanted to avoid a liable suit. So here we are with 
Hardware Heaven. Oris it hell? Some days I wonder. Anywayl'm 
on my way to Trenton for the big computer festival, or "How to 
spend $600 on air fare to drink beei; eat pizza and talk weird stuff 
with other Hackers." Hope to meet some of you there. 

Trade Mags 

As for the column I thought I should dive right in and scare the 
Editor by talking about other magazines. Not the one sold by the 
pound, or the PC mags that live in their own little biospheres but 
the "trade" magazines. Trade magazines are little comers of guru 
worship all their own. Now what do I meanby a trade magazine? 
Well those who know what I'm taking about know that TCI/ has 
nothing to fear from these guys. A trade mag is basically a glossy 
professional magazine full of expensive looking ads aimed at 
ivory tower engineers and R&D managers. The ads Eire only for 
the latest greatest toy, no doubt better than last week's toy. The 
articles are much the same since they are usually written by tech 
writers from the same companies that placed the ads. These mags 
are alsovery focused, aiming fora specific audience and therefore 
they are also very narrow minded. For example, you might find 
one called Component Mounting dedicated to "pick & place" 
machines capable of auto mounting components on your PCB. 
Now don't laugh, that's how focused they can be. So why would 
anyonebe interested in them? Well they are a tool . (You know, like 
a hammer, saw, IBM-PC, et cetera). Like any tool, what they can 
do for you depends on how well you use them. 1 skim read every 
one that passes my desk. I use those cute little markers to flag any 
article or ad that caught my interest. 1 use them as a learning tool 

to keep me up to date with trends in the 

electronics industry. Sometimes 1 find new 
neat little chips that are actually useful 
(Dallas' DS1233). Then 1 file them away 

Now why would I pay good money to 
see the latest available 32-bit embedded 
controllers to ever add A I to a soda ma- 



chine? [Soda machines use 68HC11 's!-Ed.] Answer: I don't. The ones 
I read are free. The only catch is that you are "qualified" tobe a free 
subscriber, otherwise they want a few hundred dollars a year. So 
what is a "qualified" subscriber? Someone that can fill in the form 
with the correct answers to the questions. These magazines 
survive on the high fees they chaige to advertisers. They can do 
this because they show the advertisers that their readers are 
exactly the kind of people the advertiser is trying to reach. If you 
know what that is and fill out the form accordingly then they will 
add you to their list. As before you don't lie, but you do answer 
with what they want to hear. 

Now where do you find such mags? Well the public library is 
a start but not likely a successful one. Try the library of your local 
electronics college or university. Try a friend who works in the 
electronics trade. Our library at work has over 50 titles available. 
Once you find a few, photocopy or tear out (with permission) the 
subscription card, fill it out, and send it in. The worst that will 
happen is that you never get a reply, but with luck you can add 
several pounds a month to the local letter carrier's bag. 

Dallas Semiconductor DS1233 

Well here's my chip of the month. (Now before you write to the 
editor. Yes I know that TCJjs every second month, 1 actually pick 
a chip each month but only write about every second one). It 
should be pointed out that 1 do not work for Dallas Semiconduc- 
tor, they just happen to make some of my favorite chips. The 
DS1233 is known as the EconoReset. Its features are listed on the 
data sheet as; 



Automatically restarts the microprocessor after power failure 

Monitors push-button for external override 

Internal circuitry debounces push-button switch 

Maintains reset for 350m S after Vcc returns to an in-tolerance 

condition or push-button released 

Accurate 10% or 15% microprocessorpowersupplymonitoring 

Reduces need for discrete components 

Precision temperature-compensated voltage reference and 

voltage sensor 

Low-cost TO-92 package 

Internal 5K ohm pull-up resistor 



Paul Chidley is a senior technologist at NovAtd, an Alberta based cellular phone 
company. He is a neophyte ZCPR user, but has been active in homebrewed hardware and 
softioare design for many years, primarily in the Ohio Scientific and 6502/816 area. Paul 
can be reachedon GEnie (email address: P.CHIDLEY), by regular mail at 162 Hunterhom 
Drive NE, Calgary, Alberta, Canada T2K 6H5, or by telephone at (403) 274-8891 during 
reasonable MST hours. 
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In other words this is the equivalent of your standard reset 
circuit. The Yasbechassudiadicuit. AnRC to provide the power- 
on delay and switch debourKS. The switch is in parallel to the cap, 
this »gnal is fed to a HC14 schmit trigger inverter. This provides 
anicedeanlogic signal rather than the RCcurvebutitisthewrong 
polarity so a second inverter is needed. This circuit performs fine 
unless the power is cycled faster than the cap can discharge so a 
diode is needed to discharge the cap at power off. Purists would 
also saytheaseries resistor is needed to limitthe discharge current 
through the diode. Our simple little reset circuit now has seven 
parts and still only does half of what the DS1233 does. So what 
does this neat little part look like? A 84pin PLCC? A 16pin dip? 
Sorr)^ it only has three leads and comes packaged in your 
standard TO-92 (like a transistor) or SOT-223 surface mount 



For the TO-92 package; 
Pinl — GROUND 
Pin 2 — _RESET 
Pin3 — Vcc 

A normally open optional reset button and a capacitor are 
connected between RESET and GROUND, the RESET also 
goingto your microprocessors reset input.That'sit. You now have 
all those features listed above on your reset line. So why didn't I 
useoneontheYasbec? 1 wish 1 had but it wasn't out back then. So 
next time your dicuit needs a reset reach for a DS1233. Contact 
your local Dallas Semiconductor dealer or rep for a data sheet. 

New News 

Speaking of new chips, a manufacturer of PC chips has 
aruHDunced an XT in a diip. Not a new pitxessor but an XT. 
Complete with CGA, bus interface, floppy interface, and such. 
Why would anyone want an XT/ PC in a chip? Well if you're 
writir\g code on a PC for an embedded controller why not make 
that embedded controUer a PC. So if the idea takes off, your next 
ATM trar\saction could be handled by a XT ruruiing MeSsyDOS. 
Scary stuff. 



New on the Yasbec front is the memory board and baclq>lane. 
I've order a run of boards so 1 can have them available at Trenton. 
AND...while tjrping this article I have on my other monitor a nice 
digitized image of an Apache helicopter from a De Vry ad on TV. 
Itsstillalittle rough around the edges (so to speak, graphically that 
is) but I plan to debut the colour v ideo board in the hotel room sA 
Trenton. I can picture it now, seedy looking charactepscomingand 
going all weekend long. Especially the wee hours of the night. 
Talking about the nice lines. The flushed colours. And oh those 
pixels. I'll be lucky if someone doesn't stage a raid. Deal of the 
Century 

Have I got a deal for you! If you have a 286 PC or better and you 
like drawing schematics or even designing your own PCBs, then 
thisisforyou. PADS Software, Inc. hasanrK)unceda$50shareware 
version of their PADS-Logic schematic capture and their PCB- 
PADS pcb layout software. The shareware version is basically the 
same as the software selling foroverathousand.Sowhyonly$50? 
(for both, not each) Well the shareware versions are limited as to 
the size of the design they can handle. Two logic sheets for 
schematic capture and approximately 30 1 Cs for board layout. The 
companies' idea is to make friends in the low end market so that 
if you should need to buy the real thing you will already be sold 
on PADS. Sounds like good marketing to me and the real wirmers 
are the hobbyists (midnight hackers) like us who now have 
professional software for our home projects. # 

References 

PADS Software, Inc. 
119 Russell Street 
Littleton, MA 01460 
(508)486-9521 
(800)255-7814 

Dallas Semiconductor 
4401 South Beltwood Parkway 
Dallas, Texas 75244-3292 
(214) 450-0448 
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MHz machine. As us Forth people know, they said the same 
things about the Novbc and RTX 2000. 

Allen Freeman gave the meeting commentary at the end of the 
day. Chuck gave his fireside chat at dinner and was rather 
interesting as always. Allen's talk focused mostly on what or how 
we might char\ge the direction of Forth. The most important point 
he made was how Forth lacked integratton with existing source 
and libraries of code. As we all know C has taken over for the most 
part. The why of that is the large and iiKluded C libraries. When 
someonebuys Forth they do not get any libraries. Howeverwhat 
they do get is usually all the source code for the Forth and as such 
no need for the libraries. 

For new usersbuying into Forthhowevei; it seems like theyare 
not getting as much as if they bought one of the new C compilers 
with it's many megabytes of libraries. If you want to talk about 
manuals that are overaninch thick, talkC. Where I think this issue 
really becomes important is accessing new cards and devices. 
Allen rightly pointed out how most hardware vendors are giving 
free C code ch* libraries with their products. If you want to hook 
Forth into the new product you will have to code it all yourself. In 



some cases the code is a linkable module without any source to 
translate to Forth. 

What the vendors of Forth need to do is make means of linking 
in C object modules to their code. It seems to me that might open 
up applications in VN^ndows and embedded systems that have 
been going to C. The libraries and linking to object modules are 
two items Forth people havebeenpassingover as not needed. But 
are they really rxjt needed? 

In discussing this topic with friends it has been pointed out that 
PolyForth does support libraries. The problem then is just letting 
people know about it. What I reedly want right rraw is a windows 
based Forth. I am actually looking at using \^sual Basic as a mear\s 
of developing a few quick and simple windows programs. What 
I would rather be doing is developing them using Forth. I want a 
F-PC like windows based system where I could take Forth code 
and add the windows features. Basically what I am talking about 
is upgrading existing programs to work with windows. 

That's rrat abig request, but then it seems the vendors have not 
yet moved their products to windows. My question to them is 
what happened to the old statement that Forth is always the first 

See Computer Comer, page 23 
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REAL COMPUTING 

Computers Get Caller ID, Programmers Get No Respect, and Minix Gets a GUI 

By Rick Rodman 



Earth-Shattering Discovery 

7!memaga2inerecentlyannounced:"Whyaremenand women 
different? New studies show that they are bom that way" Who 
did these new studies. The Obvious, Inc.? (See TCJ 48.) 

Of a similar mindset, there are those who say (with a straight 
face, too) that you should not have Caller ID because the caller's 
right to remain anonymous is more important than your right to 
know who's calling. Sometimes it seems that this great mission to 
protect the rights of the deranged, obscene and criminal elements 
goes a little too far in trampling upon the rights of the would-be 
normal. 

Anyway, if you live in an area in which Caller ID is available, 
there is a really simple device available from Bell Atlantic which 
transmits the data in RS-232 form. It costs about $50. Now this 
device, it seems to me, would be a natural for BBS systems. The 
BBS software could maintain (or just print) a log of all the callers 
and the time they called. Then if any irregularity should occur, the 
number would be noted. Another possibility is comparing the 
telephone number against that used by a user before. However, 
the user could be calling from a friend's computer or from his 
office. Remembei; too, that Caller ID will only workfor local (that 
is, intra-LATA) calls. Howevei; this could change in the future. 

Of course, the greatest present threat to BBSs is the RBOCs, 
riiost notably Southwestern Bell and US West, who are attempting 
to force BBSs to pay business line rates. In fact, they have plans 
afoot to impose surchaiges above business rates. This is because 
they are already viewing free BBSs as competition to their as-yet- 
unavailable information services. Monopolies cannot compete on 
a level playing groimd. 

Where are all the APIs? 

Let's say you've just invented a fantastic new computer pe- 
ripheral. What makes this device really neat is the way it could be 
integrated into other software applications running on a personal 
computer. This means software — so you have to develop an 
Application Programming Interface, or API, for the device and 
provide some software drivers for it. What do you do now? 

Well, if you're like most manufacturersof such devices, like fax 
boards and hand scanners, you keep the APIs a deep secret. After 
all, aren't they part of your competitive edge? Then you provide 
someshlock software with the device that can't be integrated into 
any software applications. Eventually, you have a small part of a 
smaU market consisting of clumsy devices that are impossible to 
integrate. 

If it was me, I'd give the APIs away. I'd try to make sure that 
every programmer in the country had those APIs. Just think— 
your device could be directly supported from WordPerfect or 
Microsoft VA^ndows. This is how standards are made— because 



most manufacturers hold their APIs too dose to their chest, the 
ones who dare to give them away become the standards. 

As for some companies who will provide APIs (in the guise of 
"development toolkits") at very high prices so that only "major 
players" can participate in the party, remember that virtually all 
innovation in this industry takes place in small companies — 
where people design things because they want to, not because 
they're paid to. 

Everyone who does any system integration out there is con- 
stantly running into these problems. Hey, you manufacturers out 
there: If you send me your APIs in macWne-readable form, I'll be 
pleased to put them on a BBS where everyone can access them. 
Let's put them on a CD-ROM! (By the way, where's the CD-ROM 
API?) 

MinIx News 

Some Minbc users out there have successfully ported the 
Bellcore MGR graphical user interface to Minix. This means that 
Minbc now has its own GUI and it can join the big leagues. No 
longer will people have to keep on asking "But when will we get 
XWmdows?" 

A couple of caveats apply. I'm told that in 16-bit (read: 
standard PC Mink), the 64K code / 64K data limitation is so severe 
that only two windows can be opened. In 32-bit (Minix 386), this 
limitation goes away. Presumably under ST or Amiga Miiux, 
these limitations wouldn't apply in the first place. 

Since Mirux is not public domain, of course, all of these 
additions are dishnbuted in "context diff" form, as I discussed 
before. So, first you apply the virtual console patches, then the 
patches to those patches; then you take the MGR files and apply 
patches to them, then you concoct the whole mass together. Oh, 
but before you get started on that, if you're running PC Minix, you 
have to build Minbc 386 first. Set aside a week for that first. 

I didn't mentioiv eithei; that there's no compatibility between 
the 16-bit and the 32-bit executables. You need to build all new 32- 
bit executables. It's especially handy to have executables to log in, 
list files, copy files, and so on. 

This whole pyramid scheme of context diffis depends on 
people being able to "cdiff" against a standard configuraHon. A 
cxjmmon problem is people considering a particrular patch com- 
binations "standard" — ^for example, the virtual console patches 
mentioned above are fairly common — but this means that people 
without those patches, or with some other patches, may not be 
able to use a given patch file. 

Another word of caution here: It's very easy to get carried 
away and make your own one-of-a-kind operatir\g system thaf s 
incompatible with everyone else's. 

Alas, I hadn't received MGR in time for this column. I'll have 
my experiences with it next time. I'm planning to implement 
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MGR on the PC-532 using an OS/2 window as a 'graphics 
terminal". ThePC'532hasanannoyin^ynanDwuinbi]icaltothe 
universe — a single 96(X>47aud serial diannel is the only way data 
can get in or out. Then, due to some unknown problem, I haven't 
been able to get either Zmodem or Umodem to work. What I 
really need is a SCSI floppy drive or controller. (If s got to come 
with an API.) 

Unux 

Linus Torvalds of Finland has written a Unix clone, which he 
calls Linux, and is giving away. This OS is a pretty good done of 
BSD, with 386 dependencies (such as the MMU) coded right in. 
Now as this column has stated before, the 386 MMU is a blatant 
rip-off copy of the 32532's, which in turn isasimplified version of 
the VAX's> so scone woik is underway to port Linux to the PC-532. 

Linux has been causing a sensation on the I ntemet, for several 
good reasons. The main reason is, c^ course, if s completely free. 
Linus wrote it completely for fun, on his own time. He has no 
objectkm to people giving it away at enhancing it in whatever 
way they see fit. And, it's a more Unix-like design than Minix, 
which means that pending tools to it has proven easier (for those 
who have it). 

Andy Tanenbaum argued recently that Linux is an "obsolete 
deagn'',becauseitis "monolithic''; that, amongOS designers, the 
microkernel design is ascendant. Inamicrokemel, the kernel does 
nothing but switch tasks and message traffic; memory manage- 
ment, file systems, et al. are outside the kernel. The most 
well-known microkernel is Mach. At any rate, he said that "Minix 
is a microkemel-based OS" but it's "only a hobby" for him. 

Of course, it's evident that, because of Minix's original design 
aroimd the 8088 processor, Minix is a poor implementation of the 
microkernel concept. And I'm sure many people wish they could 
have hobbies as remunerative as Minix has been for Andy. 

One reason that Minix is a poor implementation of the 
microkernel concept is that memory managers and file systems 
caruiot be dynamically loaded and unloaded. The kernel and the 
file system are actually tied together by several knotty strands of 
code.Oneofmydesignfeatures{cvBareMetal(mentionedin TCJ 
41) was separate "managers" which could be baded to support 
different directory formats, such as MS-DOS, CP/M, et al. 

While 1 agree that Linux will be difficult to port to different 
environments, it should be pcnnted out that porting Minix bn't a 
piece of cake, either Unlike a true microkernel, no part of the OS 
can be brought up without all the others. 

What with Mach being released in AT&T-fiee form, MGR, and 
Unux all happening, ax wonders whether the Free Software 
Foundation\^ ever get around to releaang their OS, whidi they 
reportedly ikjw call "Hurd". (Presumably, a "hurd" is a group of 
"gnus"?) 
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language available on a new system. I guess the vendors do not 
ccHiader windows a NEW system then. 

MOVING 

Well, I have said enough this month, so guess it is time to start 
packing my boc^ and very heavy manuals again. I am not 
looking fbrwardtomovingagainbuthc^jefullythistimeit will be 
many years beficxe I have to do it again.# 



Mort C tickntM 

Consider this statement (x and id are ints): 
X +- ( ( id - 10000 ) ♦ 10 ) ; 

The variable "id" varies between 10000 and 10020, lef s say 
Since thesubtractionisinparentheses, the maximum value which 
should be multiplied by 10 is 20, right? Well, that's not the way 
Microsoft C 6.0Ctei sees it. No, Microsoft reports reports an "over- 
flow in constant arithmetic" — as though the parentheses weren't 
there. No excuse this time — this is a bug. 

Put this in your unofficial Microsoft bug list. If you want to get 
an qffidal Microsoft bug list, you have to pay $300 for access to a 
bulletin board. Personally, I think they're abunchof Stalinists. At 
least they haven't started threatening people who reveal their 
bugs to the public. Yet. 

Other software vendors are pretty Stalinist, too. Oracle, for 
example, prohibits any dat^ase beiichmarks from being pub- 
lished, besides their own (laughable) figures. I am fiiee to tell you 
Oradeis slower thanmdassesinjanuary—butlcan'ttell you /loio 
much slower. 

That's why you should go with a free-worid OS like Z-system. 
You can pick up your phone and talk to Jay Sage. You can ask 
about bugs and performarKe all you want, and you can get honest 
information in the pages of TCJ. Yet aiwther advantage of Z- 
system over Miaosoft Windows — support! 

Next time 

Well, I didn't get to the image compresaon/ decompression 
stuff yet. But, looldngback, I haven't been too accurate in predict- 
ing the next column anyway. 

Next time I hope tp have more facts on MGR and, hopefully, 
Linux. If you're interested in experimenting with these, or with 
other items discussed, drop me a liiK and we'll see how we can 
fix you up.# 



When people ask me, "What one 

factor do you believe has 
contributed most to the growth 

and influence of your 

organization?" I don't have to 

stop and think about an answer. 

Unquestionably it has been the 

emphasis laid from the very 

beginning upon human 

relationships — toward the public 

on the one hand, through careful 

service, and giving the utmost in 

values; toward our associates on 

the other hand. 

— ^J. C. Penney 
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Remapping Disk Drives througli tlie Virtual BIOS 



By Roger Warren 



INTRODUCTION 

AsaZ-NodesysopandbelieverinbothMurph/sLawandthe 
concept of the seliF-fuliilling prophesy, I've lesigned myself to the 
monthly task of performing a full backup of my system's hard 
disk. This task consists largely of sitting in front of the machine for 
hours at a time listening to the floppy drive step in and out 
(between the directory and the storage area) with occasional 
breaks during which fresh disks must be inserted into the drive. 

During one such monthly labor of love (read paranoia), I 
reasoned that if I relocated the disk directory of my backup floppy 
to a central track location, less time (on the average) would be 
spent stepping to and from the directory. Simple arithmetic 
convinced me that I could complete my 40 Meg backup in 
significantly less time— by as much as an hour— even with step 
rates of a few miUiseconds per track. 

With that inspiration to motivate me, 1 set about designing and 
implementing a few simple changes to my Ampro BIOS that 
allowed me to selectively enable or disable die relocation of disk 
directory on individual floppies. I was quite pleased with the 
results. These changes were documented and released to the 
public several years ago. 

Recently, I was asked to discuss what I had done in an article 
for TCJ. I was not too certain that such an article would be helpful 
to more than a few people— those who have their BIOS code and 
aren't intimidated by the prospect of making and installinga new 
BIOS. Howevei; in the same issue of TCJ that my future article 
was announced. Jay Sage's column covered the NZCOM Virtual 
BlOSandwaysofusingit.I was struckwith the simplicity ofbeing 
abletoincorporatethegeneralschemeofmydisktrack remapping 
into a loadable module and, most importantly, one that was not 
machine-specific. Such an implementation would be useful to 
many and painless to install and use. 

This article documents this NZCOM track remapping ap- 
proach. There is sufficient discussion about the technique and 
detail in the listings to allow anyone having the wherewithal to 
modify his or her BIOS (if that is preferred or if NZCOM is not 
being used) to do so, too. 

THE BOTTLENECK 



Roger Warren is a former metallurgicd engineer who has been making a living as a 
system softvMre and hardware engineer since being introduced to computing in the early 
70's. He's been in the aerospace and defense fields for a majority of thai time, working 
primarily with embedded controb and radiation-hardened memory systems. 

Roger has been active in the CP/M and ZCPR communities for several years, having 
developedand released several enhancements to the Ampro BIOS and, more recently, LZH 
compression for CP/M (CRLZHand UNCRLZH). Hecan be reached for comment on his 
Z-Node, "The Elephant's Graveyard" at 619-270-3148 (PCP: CASAD). 



Floppy disks on CP/ M machines are logically partitioned into 
three (and sometimes four) areas: 

• Reserved tracks (also called System or Boot tracks) 

• Directory tracks 

• Storage tracks 

• Spare tracks (the 'sometimes' category) 

These logical areas are arranged physically in the order in 
which they're presented above. The System tracks are at the outer 
tracks of the diskette (the tracks having the lowest physical 
address), the Directory tracksare next, and the Storage areabuilds 
inward (toward higher numbered tracks) from the end of the 
directory. The spare tracks, if provided, occupy the innermost 
track area. The/re a hold-over from the IBM 3740 (8 inch) disk 
format specification used in the older CP/M machines. These 
tracks were set aside to be swapped in as replacements for tracks 
that went 'bad' in the storage area. I'm not aware of any CP/M 
implementation that ever used them. Spare tracks are not set aside 
by any machine I've run into that uses 51/4 inch drives. 

1 1 is the physicallocation of the directory tracks that is a burden 
on disk system performance. When writing files to disk, every 
time the current diskallocationblockbecome full, the BDOS must 
read the diiectoiy allocate another storage block, update the 
directory, then seek the newly allocated block. When reading a 
file, the directory must be referenced to locate the file's next 
allocationblockoncetheend of the currentblockis reached. As the 
disk becomes full and data for files are placed in tracks further 
'inboard' on the disk if s a longer and longer trip between the 
storage tracks being used and the directoiy. Even with track-to- 
track step rates of a few milliseconds, the round trip is time 
consuming. The activity is quite noticeable if you're listening to 
the disk drive! 

If one were to "fake out" CP/M by swapping the directory 
tracks with a couple of tracks in the middle of the disk, this 
bottleneck would be eliminated. With the directory location 
swapped in this way, the directory would never be further away 
from the current track position than half-way across the disk. But 
which tracks should be swapped? 

Arbitrarily choosing tracks wouldn't be optimal for all cases. 
Of course, 48 TPI and % TPI disks have different numbers of 

tracks. Some BlOSes treat double sided 

disks as having twice the number of tracks 
as a single sided disks, whileother BlOSes 
handle double sided diskettes by dou- 
bling the number of sectors per track 
Clearly, the tracknumber(s) of tracks tobe 
swapped with the directory are system 
dependent. 
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; count dons 


cp 


c ; Same as last drive? 


Jp 


nc,exltix 


; No carry, drive not 


Id 


a,c ; Hove to A 








Id 


(laBtdrlve),a ; Save 








jr 


ni,awal ; If not zero, new drive 


Id 


de.dpbptr 


; Get offset in DPB of 


Id 


a, a ; Same drive, test 






; DPB pointer 




; new mount 


add 


hl,de 


; Point to DPB pointer 


cpl 


; Flip bits 


Id 


e,(hl) 


; Get DPB pointer low 


bit 


0,a ; Z flag la aet If 


Inc 


hi 


; Goose HL 




; old mount 


Id 


d,(hl) 


; Get DPB pointer high 






puah 


de 


; Tranafar DB to ... 


•wait push 


«f ; Save I flag 


pop 


ix 


; IX 


call 


d3loa+27 ; Invoke the BIOS, get 










; tha pointer (to H/L) 


; Chack for fixed drive (check alsa 


will be for fixed 






; drlvea) 







The Computer Journal / #55 



25 



A SOLUTION 

If one were to divide the Storage tracks of a disk roughly in half 
and reverse the track numbeis on the first half, the diiedoiy 
would be roughly at the center of the disk. Furthermore, the disk 
would fill up from the center outwaid until the outer bound of the 
Storage area was reached, then continue filling from the center 
inward until the storage limit of the disk was reached. 

Although CP/M "thirJcs" in terms of logical tracks which, for 
diskettesy originally corresponded to physical tracks, the logical- 
to-physical mapping is, really, up to the BIOS. The differences in 
how BlOSes treat dual sided diskettes, mentioned above, are 
examples of this BIOS-dependent mapping (and the freedom the 
BIOS has in track assigtunent). 

The reversing of the track numbers of the first half of the 
diskette is merely a logical-to-physical mapping. There is a 
precedent for this: the BIOS sector translation via which CP/M 
allows for a logical-to-physical sector number remapping to 



improve disk performance. There is even a specific BIOS entry 
point that BDOS uses to perform the sector translation. 

Since the NZCOM virtual BIOS resides between the BDOS and 
thesystem'sBIOS,itcanprovide the two necessary portionsof the 
track re-mapping proposed above. These portions are: 

1. Determination of the track number of the center of the 
diskette (a system-dependent number) and, 

2. Translation of track numbers for the tracks in the first half 
of the disk. 

When a disk is selected, the BIOS returns the BDOS a pointer 
to a table of information. Through this table (and tables the table 
points to) all of the information necessary to determine the track 
number of the 'center' of the selected disk is available. The 
NZCOM virtual BIOS can use this information to compute this 
track number and leave it behind for subsequent use by the 
NZCOM virtual BIOS track selection routine. 



Id 


a,(ix+cks) 


■ Get low of check size 




Id 


d,(ix+spt+l) 


■ High of sectors /track 


or 


(lx+cks+1) 


And the high 




Id 


l,(lX'Klsm) 


• Low of storage blk max 


jr 


nz,nothartl 


• Hot zero if this is a 




id 


h,(lx-Kls«+l) 


■ High of storage blk max 






floppy 




Inc 
Id 


hi 
a,(lx+bBh) 


■ # of storage blks 

• Get block shift count 


; How If we got hexe, the guy has apeclfled that a hard disk 




add 


a,l«-l-l 


• Add 16 for divide cnt 


; la sw^^ed. Turn 


off the bit in the vector that selects 








• ( +1 f or doc ( pieshl ft ) 


; this disk. 








Id 


b,« 


• Transfer to counting 
register 


Id 


a,(lastdrlve) 


last drive 




push 


hi 


• Transfer HL 


neg 




Make -(lastdlve) 




pop 


ix 


...to IX 


add 


a, 16 


There are 16 drives. 














16-lastdrlve is number 


; Now begin divide 


of IX by DE. HL:IX is used as 32 bit | 






of bits to shift in 


; quantity. 


lY is 


quotient . 








swapvec 










Id 


b,a 


Cc^)y to counting 
register 


; First, shift till at least one bit 
; This will make the code run f astei 


is pushed out of IX. 


Id 


ix,(8wapvBc) 


Get the swap vector 










Id 


hl,0 


Clear hi 


preshlfts 


add 


ix,lx 


Shift 


■cf 




Set carry so a bit is 




dec 


b 


Count 






shifted into the HL 




jr 


nc,preshift 


Loop 


flglc2< adc 


hi, hi 


Shift bit into HL 




push 


iy 


Save IY so it can be used 


add 


lx,lx 


Next bit to carry 








for quotient 


djnz 


flglc2 


Continue shifting till 




Id 


iy,0 


Quotient starts at 






count done 




Id 


hl,l 


HL! IX is to be divided 
(BL starts at 1. 


; Mow offending bit 


is in carry 










We've shifted until a 
single bit popped out 


ccf 




So... reset it 








of IX. It was destined 
for HL LSB). 


; Continue shifting 


frem IX to HL un 


til the original bit set 




or 


a 


Clear carry.... 


; in HL pops out. This will signal 


cco^letion of all bits. 




jr 


divl 


And warp into division 














loop 


flglc3: adc 


hi, hi ; Ct 


intinue on 










jr 


c,flglc4 ; Ji 


iiqi if done 


dlvloop: 


add 


iy.iy 


Shift quotient 


add 


ix,Lx ; G< 


St another bit 




add 


lx,lx 


Shift dlvdend 


jr 


flglc3 ; Ic 


xip 




adc 


hi, hi 


. . .propagate carry 
(Note: leaves carry 


flglc4j Id 


(swapvBc),hl , 


Save new vector 








CLEAR) 


jr 


exltix ; Ai 


Kl exit 


divlj 


sbc 


hl,de 


Compare dividend to 
divisor 


; Here to continue calculations for 


a floppy 




jr 


nc,iuldq 


If no carry, HL stands. 














Add 1 to Quotient 


nothazdt Id 


l,(lx+off) 


Get offset low 




add 


hl.de 


Otherwise, restore 


Id 


h,(ix+off+l) , 


Get offset high 








original H/L 


Id 


(off set), hi , 


Save offset 




jr 


div2 


. . .And continue below 








addq: 


inc 


ly 


Goose quotient 


; New setup for computation of # tra 


cks in this disk's 


div2i 


djnz 


dlvloop 


Repeat until 


; storage area 












count exhausted 


Id 


e,(ix+spt) ) 


Low of sectors /track 


; Divide dona. If 


HL:IX is non-zerc 


than add 1 to quotient 
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When a tiackis selected, the NZCOM virtual BIOS can use the 
pieviously computed "center* tracknumber to translate thetrack 
number before presenting it to the BIOS. 

The NZCOM virtual BIOS must supply three other important 
functions: 

1. It must determine whether or not track remapping is 
desired for a particular drive, 

2. It must provide for the presence of the System tracks (they 
shouldn't be remapped), and 

3. It must protect against the inadvertent selection of 
remapping for hard disk partitions. THE TRACK SWAP- 
PING VIRTUAL BIOS 

While the concept the track swapping virtual BIOS is not too 
hard to follow, it winds up that the implementation requires more 
than just a handful of instructions. This stems primarily from the 
fact that while all of the information required to determine the 
nimfiber of tracks in a disk's Storage area is available via the 
pcrinter returned by the select disk routine, the data must be 
massaged to yield the number(s) required to perform the swq>- 
ping. There is also a fair amotmt of code required to determine 
whether swapping is enabled for a disk and to protect against 
inadvertent selection of remapping for hard disks. 

The code, itself, is rather straight-forward. The comments in 
the code include sufficient detail so as to make any "blow-by- 
btow" description here redundant. However, there are some 
points I'd like to stress. There is also some general information 
about the cakulations and the BDOS/BIOS interface that isn't 
presented in gory detail in the listings that should be presented 
here. This material will be helpful to those wishing to fine-tune the 
track swapping for their machines. 

listing 1 presents some of the front matter of the virtual BIOS 
code and the virtual BIOS jump table as modified for the track 
swapping code. The changes from the "stock" virtual BIOS code 
are few: only the module name and jumps for the Select Disk and 
Select Track routines are modified. However, the listing is in- 
cluded for completeness' sake. 

Listing 2 presents the track swapping Select Disk routine and 
related oraistants and variables. The Select Disk routine performs 
most of the work in the track swapping BIOS. It intercepts calls to 
the actual BIOS and determines whether swapping is raiabled for 
the disk being selected. If so, the number of tracks in the storage 
area of the disk is computed and, from that, the track address of 
the "half-way" point on the disk. This value (HALFTRAX), the 
number of system tracks (OFFSET), arui the swapping enabled/ 



disabled flag (SWAPFL) are left behind for the Select Track 
routine. 

Trackswapping is enabled onanindividualCP/Mdrivebasis. 
A lW>it quantity, SWAPVEQ is employed to indicate which 
drives have swapping enabled. The least significant bit of 
SWAPVEC corresponds to drive A, and the most significant to 
drive R SWAPVEC is located immediately before the Select Disk 
code. This allows it to be located by a separate utility program, 
listed below, which manipulates the bits in SWAPVEC. The 
character string "SWAPVEC" precedes SWAPVEC in memory. 
Theutilityprogram checks forthepiesenceofthisstring(toassure 
that the track swapping BIOS is loaded) before attempting to 
modify memory. This program has simple command line opera- 
tion and canbeincorporated into your STARTZCM start-up alias. 
OpHonally, SWAPVEC can have an assembled-in default value. 

I'd like to caD attention to the use of NEW MOUNT flag passed 
to the BIOS from the BDOS at Select Disk time. When BDOS calls 
the BIOS's Select Disk roufine, the least significant bit of the E 
register is if the drive hasn't been selected since the last warm 
boot, and a 1 if it has. This item of the BDOS/BIOS interface is not 
well documented in most of the CP/M manuals I've run across, 
which is why I'm calling so much attention to it here. Indeed, 
some manuals don't mention it at all. It is, however; faithfully 
duplicated in the various BDOS replacements I've examined. 
BlOSes that permit the user to read diskettes of several diferent 
formats in the same drive use this flag to determine whether the 
rather lengthy process of determining the format of the diskette 
shouldbe performed. The virtualBIOS uses the flagto help decide 
whether thenumber of tracks on the driveneedstobe determined. 

To minimize the impact of the additional code in the track 
swapping virtual BIOS on system performance, the Select Disk 
routine first checks to see if the drive being selected is the same as 
the last one selected. If so, the disk sizir\g calculations need not be 
redone. However, if this is the first selection of this drive since a 
warm boot, the disk parameters could change if the disk has been 
swapped. Therefore, when the NEW MOUNT flag indicates that 
this is the first selection since a warm boot, the ralculations are 
performed even if the drive is the same as the previously selected 
one. 

If the BIOS Select Disk routine returns an error, the virtual 
BIOS's previous drive variable (L ASTDRl VE) is set to OFFH. This 
is done to protect against true I/O errors on otherwise valid 
drives. If the drive is valid but the user left the drive door open, an 
I/Oerrorwould occur and the disk sizing calculations would be 
aborted. If he then dosed the door and continued the operatiorv 
the next Select Disk call would likely be for the same drive. By 
fordi\g LASTDRIVE to OFFH when an error occurs, the code 



(round up). Thla la dons alnca ths last track of dlak 
■ay only ba partially ua«d. No naad to taat IX alncs 
>1« ahifta will cauae IX to ba Ot 



Id 
or 
Jr 

Inc 



a,h 

1 
i,av«nmul 

iy 



; high 

; continue taat 

; Zero if waa even 

; niltipl* 

; Add 1 to round up 



■VBiaail: 



Mow IT ia # of tracka in atoraga araa. Divida t>y 2 to gat 
half-way point. Firat half will have ravaraad track #'a. 
Firat add 1 to naks avan if quotient la odd. 



puah 


iy 


; Xranafar. .. 


pop 


hi 


; Quotient to HL 


inc 


hi 


; Add 1 



arl 



Shift right 

<divlde by 2) 
Finiah ahift of H/L 



Finally, wa want to FAVOR the dii»ctory track(B). Add 1 
to the cxaqutod 'halfway' point. However, there ia need 
to decraoaent the coeiputad halfway point to sake the nath 
at the track re-aapping nice, ao a -t-l-l ia a net change 
of 0. 



exltlxi 



Id 

pui) 

Id 

Id 


(halftrax),hl 

iy 

(awi^fl),a 


; 
; 

; 


Save # tracka at 
half-way point 

Hastora IT 
} Sat awappad flag 

Into mwnry 


pop 

pop 

ret 


ix 
hi 


; 
; 

7 


Raatora IX 

Gat aaved DPH pointer 

Ratum to aendar 
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assures that the disk sizing calculations will be performed for the 
drive if it's the next drive selected. 

Topiotect against inadvertentlyenablingofswappingfor hard 
disk drive partitions, a separate trap for hard drives is included. 
Swapping tracks is possible on hard drives, but to do so on an 
existing drive would wreak havoc. When the code detectsthat the 
drive it is performing calculations for is a hard drive (signaled by 
the fact that the directory checksum vector size is 0), the trap code 
resets the enable flag in SWAPVEC for that drive. By doing so, 
subsequent selections of the drive will not waste time making the 
same discovery over and over again. 

The real 'work' in the Select Disk routine is the calculation of 
thenumberof tracks in the diskette's storage area. This is done by 
dividing the number of sectors per track into the nvmiber of 
sectors in the storage area of the disk. The number of sectors per 
hack (SPT) is available in the disk parameter block (DPB). The 
number of sectors in the storage area is rrat directly available and 
must be computed by multiplying the number of storage blocks 
in the drive by the number of sectors per storage block. The 
number of sectors in the storage area is determined by adding 1 
to the maximum storageblock nvimber in the DPB (DSM+1). The 
number of sectors jjer block is determined from the block shift 
count (BSH) in the DPB. BSH is power to which 2 must be raised 
to yield the nimiber of sectors per block. Shifting (DSM+1) left 
BSH times yields the number of sectors in the storage area. By 
adding BSH to the loop counter of the division routine (normally 
16), thisshift operation is incorporated into the division. Note that 
the last track in the disk's storeige area may be only partially used. 
Code must be added to 'round up' the computed nimiber of 
tracks if the division leaves a remainder. 

Next, the "half-way point" track ntmiber for the disk is 
calculated. The number of tracks in the storage area is incremented 
by 1 and dividedby 2. If the numberof tracks is odd, the increment 
operation will assure that the extra track will be placed in the 
"lower" half of the disk. This will be slightly more favorable, since 
it wUl more 'centrall/ locate the directory. 

Finally, the "half-way point" is adjusted to favor the location 
of the directory. The directory (usually 1 to 2 tracks in size) is 
accessed a lot. If there are X tracks in the storage area of the disk, 
X-2 are actual storage (assiraiing 2 directory tracks) . So, we add 1 
to the computed half-way point. However, there is need to 



decrement the computed half-way point to make the math at the 
track re-mapping nice, so there's a net change of 0. The reasoning 
behind this adjustment might be counter-intuitive, so consider 
this example: 

For 100 storage tracks and 2 directory tracks, the Mf-way 
pointisSO. Byaddingl, thenewhalf-zvayisSl. D-acks 0-50 are 
reversed, 51-99 arenormal. Considering thenature of the storage 
area use, this means there are 49 tracks of data, 2 tracks of 
(centrally located) directory, the 49 more tracks of data. 

Listing 3 presents the track swapping Select Track routine and 
related constants and variables. The Select Track routine merely 
adjusts the track number (if swapping is erwbled for the current 
drive) and passes the new number on to the BIOS. 

THE SUPPORT UTILITY 

Listing 4 presents a support utility to manipulate SWAPVEC. 
The help screen in the program listing details program operation, 
so no additional detail will be supplied here. Howevei; the 
statement that calculates the address of the "SWAPVEC" charac- 
ter string preceding SWAPVEC: 

swapvBC = (* (char •♦) (('(char *♦) l)+25))-9; 

can be a very obtuse line for the 'C novice, so an explanation is in 
order: 

The value lis cast as a pointer to a character pointer. Taking 
what it points to [*(char **)l]gets thecontents of location 1 - the 
address c^the BIOS warm boot location -as a character pointer. 
Adding 25 to the pointer yields the address of the location that 
holds the address of the select disk BIOS routine. By casting this 
valneas a pointer to a character pointer and taking what it points 
to, wefinidly wind up with the address of the first instruction of 
the select disk routine. If the SWBlOSb installed, thesdectdisk 
routine is immediately preceded by the characters 'SWAPVEC 
and thel byteswap vector. Subtracting 9 from theaddress of the 
sdect disk routine will yidd the address of the first character of 
the string. 



Liating 3 



Track selection and remapping code 



Swiping code Is ccn^Xeted with the trade select. All of 
the iiQjortant work has been done by the SELECT DISK code. 
Here, we only need to remap the track. 

If swapping Is enabled, the trade Is ccnipared to the offset 
(# reserved trades). If the trade is in the reserved area, 
nothing Is done. Next, the track la ccnpared to the value 
of 'halftrax' , ocmputed during the disk select. If the 
track Is in that area, the track number is altered. If the 
track Is higher than 'halftrax'. It is not altered. 



swptrk: Id 
and 
Jr 

push 
pop 

Id 
or 

sbc 
jr 



a, (Bwapfl) 

01 

Zftrakok 

be 
hi 

de, (offset) 



hl,de 
c,trakok 



; get flag 

; Swapping? 

; Juiq) if not 

; Transfer track 

; . .to HL 

; Gat offset 

; Clear carry. . . 

; Track less offset... 

; If carry, then accessing 



; reserved area 

Hew, track is normalized, having a value from 0... highest 
track. Subtract this from halftrax, stored above. This 
will result in an input value of yielding a value of 
'halftrax', 1 yielding halftrax-1, etc. A value of halftrsuc 
yeilda 0. If curry is set as a result of this operation, 
then we're accessing the upper half, so original track was 
ok. 



ex 


de,hl 


HL to DE 


Id 


hi, (halftrax) 


Get half 


sbc 


hl,de 


(Carry was clear) 


jr 


c.trakok 


If carry, track is In 
second half of disk 



; New track number in H/L. Add back in offset and transfer 
; to B/C 



Id 
add 

push 
pop 



trakok! jp 



de, (offset) 

hl,de 

hi 

be 

cblos+30 



Get offset 
Add it back in 
Transfer to. . . 
... BC 

; go select track 
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Lifting 4 Snable/Dlsabl* luppoxt utility 


> 




■witch (operation) { 


/* 


case li 


SmPVBC 


prlntfCSwi^ vector la %04xh (LSB la drive A)\n'', 


A qulek-and-dlrty pxogrm to nanipalata tto SHBIOS track 


'(unsigned •) sw^vec); 


■^pplng anablB vsctor titm tba tCPR ccnnand Una. 


break; 




case 3t 


Version 0.0 


sscanf (argl, 'Ix'.tbits) ; 


01 Sept 91 


printf(-Swap vector set to %04xh (LSB is drive A)\n- 


Dsvalopad at th* Elephant'* Graveyazd by R. Harren 


,blts); 


♦/ 


* (unsigned ') swapveci43its ; 




break; 


#lnclude "•tdio.h* 


case 2t 




bits-* (unsigned •) smq^vec; 


char *awapvec; 


vhilm ((*argl>-'R') || (♦argl <- 'T')) < 


char id[]-»SMlPVBC'; 


i-*(argl+l)-'A' ; 


char 1, operation, *argl; 


if((l < 0) 1 1 (i>15)) break; 


unalgned bits, mask; 


mask > ((unsigned) 0x1) « i; 




if (*argl — 'S') bits |- maak; 


Baln(argc,ar^) 


else if (*8rgl — 'R') bits t- -mask; 


Int argc; 


else bits '- mask; 


char **argv; 
{ 

putcb«r('\n'); /* throw Ol and LT •/ 


argl +- 2; 
} 
printf(-Swap vector set to I04xh (LSB is drive A)\n" 




,bits); 


operation ~ 0; 


'(unsigned *) swapvec-bita ; 


If (argc <2) operatlon-1; 


break; 


elM < 


default: 


argl"*(argv+l); 


printf("SMAPVBC vO.O\n\n\ 


if (('argl >- 'R') U (*argl <- 'T')) 


Usagei\n\ 


operation • 2; 


smPVEC - displays current swap vector\n\ 


alM if ((*argl 1- '/') « (*argl 1- '7')) 


SHAFVEC <hexvalue> - set swap vector to hex value\n\ 


operation • 3; 


SMAPVEC <Set_RBset_Toggle string> - Sot, reset or \ 


} 


toggle drives per stringNnN 




SWRPVEC / - display hBlp\n\ 


if (operation) < 


SWRPVBC 7 - display halp\n\n\ 




<Set_Reset_Toggle string> is of the forBi:\n\n\ 


/* Locate awapvec */ 


Sd, Rd or Td where d is a drive letter (A-P)\n\n\ 


■wapvec - (• (char **) (('(char *•) l)-l-25))-9; 


The Individual elenents of the string can beNn\ 


for (i-0;i<7;i++) 


concatenated (no spaces ).\n\n\ 


if (i<l[i] I- *awapvec++) { 


egi\n\n\ 


fprintC(itdarr, "Cannot locate swap vector. \ 


SWAPVBC SFT(a«:\n\n\ 


\nMake aura track am^iplng bloa la installed and try again. \ 


will SET the bit for drives F, toggle the bit for\n\ 


\n\n"); 


drive G, and RESET the bit for drive C.\n\n'); 


exit(l); 




) 


) /• end switch ♦/ 



CARE AND FEEDING OF TRACK-SWAPPED DISKS 

I'll not detail how to prepare and load NZCOM virtual BI OSes. 
That information is presented well enough in the NZCOM meinu- 
als and does not need to be presented here. Suffice it to say that the 
trackswappingBIOScanbe made an integral part of yoursystem, 
and that one can set, reset, or view the track remapping enable 
flags ior the system drives via the utility discussed above. This 
utility can be run by your STARTZCM alias, so that your system 
can 'load' with track remapping enabled for selected drives. 

\Mth the track swappii\g virtual BIOS installed, one is free to 
enable and disable the feature for any floppy on the system. The 
fdlowii\g tips will help keep you out of trouble: 

Thick swapping has nothing to do with system's diskfomud- 
ting. However, to avoid any unforeseen problems, it's probably 
better to not enableany avappingwhen itsingyour system's disk 
formatter or disk test. (They may na work xvith NZCOM 
installed, anyway!) 

TheBDOS vxm 't gracefuUy handle what it considers GAR- 
BAGE in the disk directory, so don't trytotuma 'used'diskinto 
a trade-swapped disk without preparing it first (old data on the 
diskwillgtirbage-upthetrack-swapped directory). Topreparethe 
disk, merely reformat it. I'vealsoindudeda utility in thesupport 
Itbrttry (see PARTING SHOTS, bdow) that will perform the 
necessary directory area initialization. 



Tivck swapping selected on a CP/M logical drive basis - not 
on a physical drivebasis. If your system supports driveswapping 
or reassignment, be aware of that fact. If your system has the 
Mity to read 'foreign format' disks, track remapping shouldn't 
be encbledfor the drive used for foreign format disks. 

FINE-TUNING FOR SPECIFIC SYSTEMS 

The track remapping scheme I chose is probably the most 
simple-minded one, but it is very good choice for my system and 
purposes. Avariety of remappingschemes can exist. The onlyreal 
requirement is that there be a one-to-one mapping of logical and 
physical track. Some schemes may be better than others for 
specific machines and/ or specific applications. Some may be 
worse. 

Recently, Jay Sage asked why I hadn't mapped things so that 
the directory was in the center of the drive with even numbered 
tracks mapped 'inward' from the center and odd numbered 
tracks mapped outward. VNTith that kind of scheme, data tracks 
would be closer to the directory as the disk filled up, giving an 
even better performarKe enlumcement (my mapping scheme 
only improves performance on disks that are more than half full.) 
Frankly, this hadn't occurred to me. It seemed like a wonderful 
idea, and I quickly tried it. 

See Virtual BIOS, page 32 



The Computer Journal / jUSS 



29 



The Bumbling Mathematician— Part 1 

Big Numbers 

By Frank C. Sergeant 



I have an uige to write about math. When I use the word 
"mathematidan/'Iuseitveiy loosely. I wanttodobig math things 
with small computer lesouices. Since Forth is my favorite lan- 
guage, I want to use Forth, particularly my Pygmy Forth, for the 
examples. Pygmy is available for MS-DOS, but not yet for CP/ M. 
So, the first thing I want to do, which I absolutely cannot do now, 
is to piepaie a version of Pygmy for you that runs under CP/ M. 
If I could do that first, more of you could run the examples I wish 
to present. However, peihaps, if I present the code and explana- 
tions deailyenough, even if you don'thave access to Pygmy, you 
will be able to use these ideas in assembly language or whatever 
other language you prefer. Unfortunately, I am not going to be 
able to present code that is as pretty as I'd like. 

Why Big Numbers? 

By big numbers I mean numbers with arbitrarily high preci- 
sion. Would like to do your calculations with 50 digits to the left 
of the decimal point and 400 digits to the right of the decimal 
point? Well, this big number approach will let you. Why would 
you want to do this? I don't know. Because it is possible? Because 
you W£mt higher precision than any of your other math packages 
give you? Because you object to the price of math co-processors, 
and you object to buying a PC into which to plug the co- 
processor? 

Some months ago I wanted to calculate logarithms to 40 
decimal places. So, I dashed off the enclosed code to let me handle 
bignumbers. I had the choice of buildingafloating point or afixed 
point package. I picked fixed point. 1 1 is not fast, it is not pretty, but 
it allows you to set the number of digits to each side of the decimal 
pdrnt to just about any size that will fit in your computer's 
memory. 

The Details 

This package allows you to create "registers" and double 
"legjsters" luuned whatever you wish. For general purpose 
registers I usually name them X, Y, Z, etc. I usually name the 
double registers A A, BB, etc. to remind me that they are double. 
These registers are really strings of bytes in memory. Let's assume 
you decide you want 1 places to the left and 20 places to the right 
of the decimal point. 



30 COHBIMIT ^DIGITS 
20 COHSXMIT #FRACS 



( sat total nuDfaar of digits) 
( aat lumbar of dlglta to right) 
( of daclBBl) 



Then we'll set up some registers and double registers. 

N> X K> Y Hi Z ( maka aoua reglatera ) 

DHi AA DN> BB ( make ■cms double registers) 

X, for example, is 30 bytes long. Each byte holds a single 
decimal digit. Wasteful, you say? After all, we could stuff 2 
decimal digits into each byte. The reason for using a full byte for 
each digit is it simplifies handling carries and borrows. Since each 
byte holds a digit rra greater than 9, each byte will also hold the 
sum or product of any two digits. Thus, when we add two 
registers, we first add corresponding bytes together; without 
worrying about carries. Then we "normalize" the destination 
register so that eachbyte contains a number (digit) no greater than 
9. The word ADD does both of these steps. Since the procedure for 
borrows is different than for carries, two words are available: 
NORMALIZE+ and NORMALIZE-. SUB uses NORMALIZE-. 
Suppose you want to add the contents of reg^ter X to the contents 
of register Y. 

X Y ADD 

does just that, leaving X urKrhanged find leaving the sum in Y. 

Y X SUB 

Subtracts X from Y, leaving the difference in Y and leaving X 
unchanged. 

Multiplicationand division are a little trickier. This is where the 
double registers become necessary. 

Y X AA MUL 

will multiply Y times X and place the product into A A . 1 1 will leave 

Y and X urKhanged. 

Y X DIV 

divides Y by X, leaving Y and X unchanged, and always placing 
the quotient into the double register named QUOTIENT. 

In addition to adding, subtracting, multiplying, and dividing 
two registers, we need the ability to initialize the registers, com- 
pare them, copy them to one another; and print their values. The 
word X! (promimoed "x store") initializes a register. While we 
might like to do something like 

75 X XI 



Theabovecodesets the total number of 
digits to 30 and the number to the right to 
20 (thus the number to the left is 10). 



Many years ago Frank saw a proof that the square root of two was irrational, and, 
while he may never be a mathematician, he has developed a great deal of respect for those 
who are mathenutiidans. 
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this would only work for small numbers (16-bit nimtbeis). What 
if we want to initialize the register to something like 
1,392,459,667.00000000011239? So, X! gets the iniHalization value 



from a string, as follows: 



1,392,459,667.00000000011239' X XI 



Th« Py^iy Forth Code 

30 CCRSXIUIT #bIGITS 
20 CONSnUIT #FI»CS 

'. CORSTMIT PT ( daclaal point chaxactar) 

M>iGns 2* coNsnurr nniGiTS 

4bIGnS 1- C0N8TUIT #DiGrrs-i 
ntolGITS 1- COMSTMIT DMlIGITS-1 
#DIGITS #nuCS - COHSIMIT #NHO<U!S 
: H: CRZUZ ( -) ( - ng) tDlGlTS KLLOU ; 
1 DMi CREATE ( -) ( - drag) QfDlGITS ALUXT ; 
Hi U Hi V Nt H H< X Nt Y Nt I ( nalw aooa 'rsglatera' 
DNi AA ( double accuBulator for Kilt t dlv) 
i ZERO ( rag -) «>IGITS FUJ. ; 
I DZERO ( rag -) D#DIGITS PILL ; 



J XI ( S rag -) 

( e.g. * 12345.893* X XI ) 

( nuBbor maat be positive mmtxr, with a declaal point) 

OOP ZERO 

PUSH COUNT 2IXJP ( a # a #) 

PT -LBWINOO 2DUP 1 +Uia>ER 1- 

M #HHOLBS -I- SNU> CMOVE ( move in fractional part) 

SmP DROP - ( a #) #IIHOLBS OVER - R( + SNAP CHOVE ( ) 

rap #DiGrrs 

FOR ( a) OOP C( DOP NOT MOT $30 AND - OVER CI 1+ NEXT 
JXICa> ; 

I .X ( a # - a') FOR DUP C( $30 + BUT 1-t- NEXT ( a) ; 
t .X ( reg -) CR MfBOIXS .X PT BIIT #ntACS .X 
I .DX ( drag -) CR ^DIGITS .x 44 EMIT .X ; 



( acalo nuBbar left or right - this can only be done to or 

froa a double praclaion accumulator) 
i REGl ( regl reg2 -) AIGITS CMOVB ; 
: DRE61 ( teg dbl-reg -) DUP DZERO REGl ; 
i DRBGt ( dbl-xeg reg -) REGl ; 
: NORMAUZB+ ( reg -) jH)IGITS-l + ( le initial-carry) 

#DIGnE FOR ( a cy) 
OVER C( + ( a v+cy) 10 U/HOO ( a new-v new-cy) 

PUSH OVER CI 1- POP NEXT ( ABORT" overflowl ') 2DR0P ; 

t NORMALIZE- ( reg -) #DIGITS-1 -f ( le initial-carry) 
#DIGnS FOR ( a cy) 
OVER CI + ( a vfcy) 245 OVER U< DUP PUSH 10 AND ■•■ 
( a naw-v ) 
OVER CI 1- POP NEXT ( ABORT' underflowl ') 2DR0P ; 

I RIPPISf ( reg n pos -) FOR OVER I -f DUP PUSH CI + 
DUP 9 > MHILB 10 - POP CI 1 NEXT ELSE POP CI POP 
THBI 2DRDP ; 



I RIPPLE* ( reg n pos -) 

FOR OVER I -t- DUP PUSH CI OVER * POP CI 
M0RMALIZB4- ; 



NEXT DROP ( reg) 



I <9CCMPLBMENT ( reg # -) 

FOR DUP 1 + 9 OVER C| - SNAP CI NEXT DROP ; 
t 9C0MP ( reg -) #DIGITS (900MPLBMBNT ; 
I D9O0MP ( drag -) OHJIGITS (9C0MPiatENT ; 

I XNBGATB ( rag -) DUP 9C0MP 1 #DIGITS RIPPU4- ; 

I ADD ( reg reg -) A)IGITS FOR OVER I -f CI OVER I * DUP PUSH 

CI -t- POP CI NEXT N0RMALIZB4' DR|(» ; 
i SUB ( a b -) ( a-b > • ) SNAP ( b a) 

#bIGITS FOR OVER I -f CI ( bv) OVER I + 

DUP PUSH CI ( bv av) SNAP - POP CI NEXT HORMAUZB- DROP ; 



t XCOMP ( regl reg2 - -l|0|+l) <N>IGns COMP ; 



I X< ( regl reg2 - f ) XCOMP -1 • ; 

I X> ( regl reg2 - f) XCOMP 1 - ; 

< X- ( regl reg3 - f) XCOMP 0- ; 

i X0< ( regl - f ) CI 4 SNAP U< ; 

I LEFT-JUST ( regl # - #plaoes-shifted) PUSH 1-t- DUP POP 
1- -LEADING- ( a-fl a+S 5) PUSH 
( a-fl a-t-3) 2DUP ( a-t-l a'f3 a+l a+3) 

SHAP Rl ( a-t-1 a-t-3 a-t-3 a-t-1 5) CHOVE ( a-t-1 a-t-3) OVER - 
( a-t-1 #) POP -tiniDER ( a-t-l-t^S #) DUP PUSH FIZI. POP ; 

! S->R ( n reg -) SHAP ( reg n) 

<# 491UCS FOR '0 BOU NEXT FT HOLD # #S DROP DUP PAD CI 
PAD 1-t- SHAP FOR SNAP OVER CI 1-t- NEXT DROP PAD SNAP XI ; 



t DREG/10 ( dreg -) 

DUP DUP 1-t- D#DIGITS-1 CHOVE> ( dreg) SNAP CI ; 

t MUL-SXEP ( reg dreg -) 
( reg dreg) DUP #DIGITS -t- CI ( le multiplier) 7D0P IF 
lAlGITS FOR PUSH OVER C| R{ * OVER CI -t- OVER CI 
-1 -tVNDBR 1- POP NEXT SHAP 1-f NORMALIZSf THEN 2DR0P ; 

I MULf ( regl reg2 dreg -) ( accumulating) DUP PUSH 
SHAP OVER ( regl drag reg2 dreg) 
<n>IGIT8 DUP -fUNDER CHOVE ( regl dreg) 
iftJIGITS-l -SUNDER #DIGITS-1 -t- ( reg dreg) 
4bIGITS FOR 2DUF NUL-STEP POP R| DREG/10 PUSH NEXT 
2DR0P POP 
#FRACS FOR ( dreg) DUP DRSG/10 NEXT MOP ; 

I MUL ( regl rag2 dreg -) ( non-accumulating) 
DUP DZERO MUIrt^ ; 



N< DIVISOR 
DHt DIVIDEND 



Nt TEMPI 
DNs DTEMP 



DNi QUOTIENT 



xlO* ( a # -) 

( shift left 1 place; force sign-digit to aero) 

2DUP OVER DUP 1 -t-UNDER ROT CNOVE ( a # a) 

-t- SNAP CI DROP ; 

REGIO* ( reg -) DUP #DIGITS-1 xlO* SHAP CI ; 

DREGIO* ( drag -) DUP DdtJIGITS-l xlO* SHAP CI 

SDREGIO* ( dreg -) DitolGITS-l xlO* ; 



s .REGS ( -) DIVIDEND .DX .'by - DIVISOR .X 
.' -> ' QUOTIENT .DX 7SCROLL CR ; 



( division divide rl by r2 and put quotient into dreg) 

( both operands must be non-negative ) 

I DIV-IHIT ( rl r2 - #dlvlsor-shlfts #divid*nd-shlfti) 

DIVISOR REGl DIVIDEND DUP DZERO REGl ( ) 

DIVISOR ^DIGITS I2FT-JU8T DIVIDEND <K)IGITS LEFT-JUST 

QUOTIENT DZERO ; 

I DIV-STEP ( -) DIVISOR DTEMP REGl DTEMP ( reg) 

DIVIDEND DUP 1-1- C{ SHAP Cl 10 * -h DIVISOR 1-t- CI U/ 
( reg tquot) 

DUP QUOTIENT DUP DREGIO* D#I>IGITS-1 -t- CI ( zeg tquot) 
tnoiGITS RIPPLE* ( le multiply divisor t trial quotient) 
( ) DIVIDEND DTEMP SUB ( ) 
BEGIN DIVII«ND X0< NHIUS DIVISOR DIVIDEND ADD 
QUOTIENT DM>IGITS-1 + DUP C| 1- SHAP CI 
RBPBAI DIVIDEND SDREGIO* ; 

I DIV ( dividend divisor -) DIV-INIT ( # #) 

- #FRACS <f 2 <f ( for rounding) 
FOR DIV-SIBP NEXT 
QUOTIENT DUP 5 D#DIGITS RIPPW- DRBG/10 ( round) ; 

I TEST ( $ « -) X XI Y XI Y X DIV ." -> • QOOTIEHT .DX 
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To copy one register to another use REG! (pionounced *reg 
store"), e.g. 



X Y REGI 



( copy X to ¥, leaving X unchangvd) 



The words ZERO and DZERO zero out a register or double 
reg^stei; e.g. 

X ZERO 
U DZERO 

Comparison is accomplished by X<, X>, X=, and X0<, e.g. 

X Y X< ratums true If X la leaa than Y 

X Y X> returns true If X la greater than Y 

X Y X- returns true If X la equal to Y 

X X0< returns true If X la leaa than zero 

Printing registers is accomplished by .X and .DX, e.g. 

X .X prlnta the contenta of register X 

QUOTIENT .DX prints the contents of double register 
QUOTIENT 

How To Read The Source Code 

In the stack comments a dollar sign represents an address of a 
string, where the first byte contains a count and the following 
bytes contain the string. Pronounce $ as "string." 

FOR ... NEXT must be preceded by a <coxmt>. In Pygmy 
the loop will be done <count> times. Within the loop, I is the 
down-counting index. For example. 



: TST 10 FOR I . HBXT ; 
TST 

will print 

9876543210 

Possible Enhancements 

The names should be improved. The clarity of the code and 
comments should be improved. Additional words are needed to 
drop non-significant leading and trailing zeros when printing 
registers. Furthermore, these large numbers are kept in fbced 
locations. This is still very useful, but it might be more Forth-like 
if they were kept on a stack. 

References 

I was encouraged in doing this after seeing John Wavrick's 
polynomial math package; after all, a base 10 number *is* a 
polynomial, i.e. a(10*0) + b(10'*l) + c(10*2) + d(10'^3) + ... + 
z(10'*25), if we keep 26 digits. 

What's Next? 

I titled this Part 1 in hopes there might be a Part 2 sometime. 
Perhaps now that we can handle large numbers even on a little 
micro we might do something useful with them. Suggestions and 
very gentle criticisms are welcome.© 



Virtual BIOS, from page 29 

It didn't improve things. In fact, it decreased performance. In 
retrospect, the reason is obvious: it was not a good mapping 
scheme for my system because the tracks on my Ampro do not 
contain an even number of allocation blocks. 

Double sided 96 TPI disks on the Ampro have 40 sectors per 
track (5k bytes/track). The allocation block for those disks is 2k. 
Thus, the lastblockonall even tracks is completed on the next odd 
track. Normally, the 'next' track is actually the next track (or the 
other head on the same track). This is the case, too, with the "first 
half reversed " system — ^wi th the single excep tion of the two tracks 
on opposite sides of the half-way point. Not too much time is 
spent getting to an adjacent track. 

With the "even in — odd out" scheme, the "next" track is on the 
other"side"ofthedisk — and gets further away as the disk fills. To 
make things worse, after the "split" allocation block is read or 
written, a trip to the directory is required to find the next allocation 
block. Thus, the scheme actually causes more time to be spent 
stepping the heads aroimd the disk! The obvious solution would 
be to map tracks in "pairs" — two tracks inward, two outward, et 
cetera. 

Each system is different in it's use of the floppies. As I 
menfioned above, different schemes exist for how tracks are 
numbered on two-sided disks. Different systems also use differ- 
ent physical sector sizes, resulting in difering number of CP/M 
128 byte sectors per track. With proper attention to a machine's 
disksystem architecture, the mappingscheme canbe quickly fine- 
tuned for a system. Variations of the "odd in — even out" scheme 



appropriate for the host machine should produce noticeable 
improvement over what I've presented here. 

PARTING SHOTS 

What I've presented here is a NZCOM Virtual BIOS solution 
that will produce a noticeable disk system performance increase 
on any machine. This specific mapping scheme has worked well 
for me in both sequential disk operations (system backups) and 
random operations (normal use). Running time for application 
programs that do a great deal of disk accesses — both sequential 
and random — can be greatly reduced when their data files are on 
disks with remapping enabled (try running FATCAT with the 
data files on remapped disks!) 

Remapping can be fine-timed for a specific system. What I've 
presented here will serve as a basis for system-specific schemes. 

As a companion to this article, I've prepared a library named 
SWBIOIO.LBR which contains ready-to-load ZRL versions of the 
virtualBIOS presented above,acompiledversionof the SWAPVEC 
manipulation utility, and a utility to initialize disk directories. This 
fileis likely tobeavailableonyour local Z-Node.Ifitisn't, you can 
get copy from my system. The Elephant's Graveyard, at 619-270- 
3184.» 



Moving? 

Dont Leave Us Behind! 
Enter Change of Address six weeks in advance 
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YASMEM 

(Yet Another Static Memory Expansion Module) 



By Paul Chidley 



Before I get into the Yasmem board let me update you on the 
Yasbec (Yasbec is the Yd Another Sing^ Board Eight-bit Computer 
discussed in 707 issues 51 and 5% '^hen eight bits is enough'). 
The monitor ROM for the Yadjec has been finished and running 
bug tree for some time now. Wciyne did an excellent job on the 
ROM and the documentation, the ROM is well suited to running 
the Z180 without any ftmnal operating system. A non-banked 
BIOS starter disk is available from Cam Cotiill (see 70754 title?) 
and the banked version is under testing and may be ready by the 
time this is inpiint. Ihadalimited number of EiuDcaidbaclcplanes 
for the Yasbec cards and can have more made if interest warrants 
it. Yfe have a strong Yasbec topic going in the CP/M section of 
GEnie,over 140messagesance}uly 1990, as wellastheoccasioi\al 
Yasbec Rouivl Table (real time conference) night, so if you want 
the most up-to-date information I suggest looking into GEnie. It 
is the orJy place I regularly check my Email, usually every day. 
Anyway on to the Yasmem. 

The Yasbec CPU card supports up tol Megab3rteof SRAMon 
board, so why would anyone need a memory expansion board? 
Well the Yasbec has two 32 pin sockets for RAM so two 512K x 8 
SRAM chips would provide the 1MB but monolithic versiorvs of 
this chip do not commercially exist yet. There are modules 
available, at the time I wrote this articlea512Kx 8 SRAM module, 
32 pin 600 mil dip, 100ns, commercial temperature range, cost 
aroimd $185 US in small quantities. On the other hand the 128K 
X 8 SRAM chips are around $22 so the 512Kx8 module is still twice 
the price of four 12fflCx8 chips. This means that eight 128Kx8 
SRAM chips and a memory expansion board are currently a cost 
effective solution until the 512Kx8 monolithic chips become a 
reality. The Yasmem was deigned to provide my prototype 
system the full 1MB of SRAM and to test nmning programs in 
extemalRAM across theI/Ocor\nectorandbaclq>lane. With eight 
32 pin dip sockets on the Eurocard there was lots of space for a 
battery backup controller and two lithium batteries. Figure 1 
shows the general layout of the board. 

FigUK 2 shows a partial schematic of the Yasmem board, the 
SRAMs were left off to save space. Thebackplane signals are fully 
buffered by U9, UIO, Ull andU12.Ul2 driving the bi-directional 
databus is a 74act245 while the other thneebufferscanbe 74act245 
or74act541. The 541 is the logical choice for uni-directionalsignals 
but »nce a 245 is required for tl% data bus these three buffers can 
optionally also be 74act245 by changing the Rl and R2 jumpers as 
indicated. The buffered address and data lines go directly to the 
SRAMs as required. Address lines A15-A19 and the contnDl liries 
go to the 16L8 pal U13. Using a pal gives the flexibility to change 
the hardware address decoding as required depending cm how 
the Yasmem is to be cor\figured in your system. The pal does not 
do dbsolute address decoding, instead it decodes the desired 
board address down to three lines, these lines are then passed to 
theDS1211 (U14) which does a l-of-8 decode to get the individual 



chip selects. In other words, when using 128Kx8 chips the address 
lines A 17 through A 1 9 are passed straight throughbut should you 
desire to make a256K SRAM board using 32F^8 chips only a new 
pal is needed. 

The Dallas Semiconductor DS1211 is used on the Yasmem to 
give us battery backup control of the SRAMs. The featiues listed 
in the data sheet are; 



Converts full CMOS SRAMs into nonvolatile memories 

Unconditionally write protects when Voc is out of tolerance 

Automatically switches to battery when power fail occurs 

3 to 8 decoder provides control for up to eight CMOS SRAMs 

Qmsumes less than lOOnA of battery current 

tests battery condition on power-up 

Provides for redundant batteries 

"Powerfail" signal can be used to interrupt processor on 

power failure 

Optional 5% or 10% power fail detection 

Available in 20 pin dip pS1211) or 20 pin SOIC pS1211S) 



The DS1211 provides a 3 to 8 decoder to provide an active low 
chip select signal to one of 8 SRAMs. Input voltage (Vcci) is 
monitored by comparing it to 4.75V or 4.5V depending on the 
level of the TOLpin (tolerance GND=4.75 Vcc=4.5). If Vcd drops 
below the tolerance level thenwriteprotectionisaccomplishedby 
ensuring that all chip select outputs aie held high to the SRAMs' 
Vcc (Vcco) . Vcco to the SRAM diips is switched from Vcd or the 
battery supply depending on which is greater. This provides 
constant power to the SRAM since the switch is transparent and 
with only a 02V drop. An internal switch also selects the battery 
voltage input that is greater; should a battery fail voltage input is 
trai\sparently switched to the other battery. Battery voltage is also 
tested on power up, if the battery voltage is less than 2.0 volts then 
the SECOND access to memory is inhibited. A simply battery test 
can by done by the processor by reading a memory location, 
writinga different value to that memory location and then reading 
that memory location again. If the values read are equal then the 
battery voltage is too low since the write cyde was inhibited. This 
makes a great bug for people that forget about this feature and 
have a dead battery. If using one battery the other input must be 
grounded. 

The flip flops of U15 provide an optional Wait state on opcode 
fetches, something that is not support on the Yasbec. The ZIBO has 
programmable wait states so why add hardware to do it here? 
Well I'm thinking of the day I install my 20MHz Z180 and 45nS 
expensive SRAMs. The Yasbec can have its fast CPU and fast 
SRAM running full speed with no wait statesbut the Yasmem will 
add one if its slower SRAM is accessed. So someday this will 
prove useful, for now I jumper mine to disabled so everything 
runs at full speed, (no need to slow down to access our bus) (yet) 
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Figure 1: YASMEM board layout 
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Phdo 1: The YASBEC motherboard. This and all other YASBEC boards may be 
mounted on the Eurocard backplane. 




Photo 2: The YASMEM memory expansion board. 



• J. ■; 




Photo 3: YASBEC cdor graphics board. 
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Now that we have an external memory board we must 
configure memory in ourYasbec system. Like many things there 
are many ways to do this so here's my suggestion but I'm sure 
people will dream up other ways to do it. Use up to seven 128Kx8 
chips on the Yasmem leaving the first 128K of physical space 
empty on the Yasmem. This would provide for a maximum of 
896Kofbatterybacked up memory foraRAM disk. On the Yasbec 
CPU the first 32K of physical memory is occupied by the monitor 
ROM. I fusing 32Kx8 chips, two would provide the 64K of system 
RAM needed for a non-banked system. If using a single 128Kx8 
SRAM 32K would be missing due to the overlap with the monitor 
ROM leaving 96K free for a banked system. 

I hope Yasbec users and others have found this article interest- 
ing. There are a good number of Yasbec systems out there up and 
running and installing their software. Enough people that a few 
of them should take the time to write an article for TCJ. Youknow, 
"Yasbec from the Outside World", "HowIbuiltmyYasbec",orthe 
now infamous "How I let the Smoke Out" . I'm sure inquiring TCJ 
minds want to know. 



As before, contact me by voice, GEmail, postal snail, et cetera, 
if you are interested in the Yasmem and/or Yasbec boards. I'm 
always available to answer questions but I am on Calgary (MST) 
time so give me a chance to get home from work before you call 
andbe warned, if you wake me up it will be a very short answer.© 

Paul Chidley 
162 HunterhomDr. N.E. 
Calgary, Alberta 
Canada T2K 6H5 
Voice (403) 274-8891 MST 
GEmail PCHIDLEY 

Cam Cotrill 

1935 Manhattan Ave. 

La Crescenta, CA 91214 

Voice (eves/wkends) (818) 248-0553 
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Figure 3: EuroCard backplane 
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DiSCOVM- 

The Z-Letter 

The Z-Letter is the only monthly 
publication for CP/M and Z-System. 
Eagle computer and SpellBinder 
support. Licensed CP/M distributor. 

Subscriptions: $15 US, $18 Canada 
and Mexico, $45 Overseas 



Write or call for free earn pie. 



The Z-Letter 

Lambda Software Publishing 

720 South Second Street 

San Jose CA 951 12-5820 

(408) 293-5176 



Advent Kaypro Upgrades 



TnrboROM. Allows Ikxible configura- 
tion of yoor entire systan, read/write 
additional formats and more $35 

Hard drive conversion kit Includes 
interface, controller, TurboROM, soft- 
ware and manual — ^Everything needed 
to install a hard drive except the cable 
and drive! $175 without dock, $200 
with ckKk. 

Personality Decoder Board. Run more 
than two drives, use quad density 
drivw whoi used with TnrboROM. $25 

Limited Stock — Subject to prior sak 



( ^ill 'M6-4S3-(M12 fvis uoiki-iKls or 
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TG/"'' ""'""""'-"""""Market Place 
Advertising for Small Business 



Looking for a way to get your message across? 
Advertise in the Market Race! 



Rrst Insertion: 
Relnaertions: 



$50 
$35 



Rates include typesetting, Payment must accom- 
pany order. Vna, MasterCard, Discover, Diner's 
Club, Carte Blanche, JCB, EuroCard accepted. 
Checks, money orders must lie in US funds 
drawn on a US bank. Resetting of ad constitutes a 
new advertisement at first insettkjn rate. Inquire 
for rates for larger ads if required. Deadline is 
eight weeks prnr to pubJKatkxi date. Mail to: 

The Computer Journal 

Marketplace 

POBox12 

S. Plainfiekl NJ 07080-0012 USA 



CP/M SOFTWARE 

100 page Public Domain Catalog, $8.50 plus $1.50 shipping 
and handling. New Digital Research CP/M 2.2 manual, $19.95 
plus $3.00 shipping and handling. Also, MS/PC-DOS Software. 
Disk Copying, including AMSTRAD. Send self addressed, 
stamped envelope for free Flyer, Catalog $1.00 

Elliam Associates 

Box 2664 

Atascadero, CA 93423 

805-466-8440 



Kenmore 

ZTime-1 

Real Time Clocks 

Assembled and Tested with 
90 Day Warranty 
Includes Software 

$79.95 

Send diedc or money order to 

Chris McEwen 

PO Box 12 

South Plainfield, NJ 07080 

(alk)w 4-6 weeks for delivery) 




Z-System Software Update Service 

Provides Z-System public domain software by mail. 

Regular Subscription Service 

Z3C0M Package of over 1 .5 MB of COM files 

Z3HELP Package with over 1 .3 MB of online documentation 

Z-SUS Programmers Pack, 8 disks full 

Z-SUS Word Processing Toolkit 

And Morel 

For catalog on disk, send $2.00 ($4.00 outside North AmericeO 
and your computer format to: 

Sage Microsystems East 

1435 Centre Street 
Newton Centre MA 02159-2469 
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ZBest Software 



By Bill Tishey 



ZSUS News 

Z3LBR Package: This package was completed last October and 
is the third in a series of "toolkits" which I have planned to 
organize the many Z utilities according to function. The first was 
Z3PR0G (The Programmer's Toolkit) and the second was 
Z3W0RD (The Z-System Text/Word Processing Toolkit). These 
packages are not just a dump of every utility available, but a 
careful selection (with advice from others) of the "latest and 
greatest" of tools in each category, including not only Z utilities, 
but (still essential!) CP/M programs. How do 1 decide what to 
include? Well, I have a few simple guidelines. Programs are 
generally not included if their functions are felt to be duplicated 
or improved upon in more recent or "modemizied" tools. Tools 
with the same function are included if one is felt to have some 
unique, valuable feature. Some programs which perform the 
same function, howevei; are worth in- 
cluding simply because they are styled a 
bit diffeiently(it'sgood sometimes to have 
alternatives). Let's look at Z3LBR. 

Z3LBR contains Z-System and general 
CP/M programs useful in library and 
archiveoperations.lt consistsof three gen- 
eral groupings: 

• LBR-member handling utilities (di- 
rectory listers, file finders, typers, 
extractors, etc.) 

• utilitiesforhandlingARC,ARK,ZIP, 
and ZOO files 

• major library shells and miscella- 
neous programs. 

See Figure 1 for a list of the programs 
selected. Those with an asterisk are general CP/M programs. 

Comments: This package contains plenty of tools and docu- 
mentation for anyone interested in library /archive management. 
You'll note that LLP is included along with LDIRB . This isbecause, 
as we noted in TCJ 51, LLP has the added ability to report 
member-file CRCsandmember-file indices (bothLDIRB and LLP, 
however; have been outdone by a new tool, LD — see the review 
below). Among un23Ppers, UNZIP099 is included along with 



UNZIP15 because of its unique ability to extract from SFX (self- 
extracting ZIP files. And, while ZLT15 is the preferred library 
"typer", LT30 (now LT31) is also iiKluded for its ability to extract 
a file to a specified DU. VLU108 is included even though many 
complain of its limitations and, inparticulaij problems in preserv- 
ing datestamps. The development of VLU was never fully 
completed and, depending on one's system, it may or may not 
work reliably as a LBR shell. Still, there are those who like its 
2nLER-like interface and other features (for example, its handy 
way of making CRUNCH comments). For building LBRs, LPUT 
is a more reliable tool, is lightning fast, versatile and command- 
line oriented. LPUT and LBREXT, used either from the command 
line or in a combination of ZFILER macros and ARUNZ scripts, 
are probably the safest Z-System tools to use in building and 
dissolving LBR files. Some programs not included in the package 
are: ZLDIR, EXL12, TYPELZ22, LRUNZ302, LCRC, and 
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BUI Tishey has been a ZCPR user since 1985 when he found the right combituition of 
ZCPR2 and Microsofl 's Softcard CP/M for his three-year-old Apple U+. After graduating 
toZCPR30andPCPI'sAppliairdCP/M, hedida "nmnualinstaU"cfZCPR3.3(withhdp 
from a lot of friends!), and in late 1988 switched to NZCOM and ZSDOS, all on the same 
vintageApplelU. Bill is theauthor of theZ3HELP system, amonthly-updatedsystem of 
help files for Z-System programs, as well as comprehensive listing of available Z-System 
saftwatv and is the editor of the Z-System Software Update Service. 

Bill may be contacted on CompuServe (76320,22), GEnie (WATISHE), on Jay Sage's 
Z-Node #3 (617-965-7259) and by regular mail at 8335 Dubbs Drive, Severn MD 21144 



UNARC16. These were felt to be superseded by, respectively, 
LDIRB, LBREXT34, ZLT15, LX22, LREPAIR, and UNARCZ13. 

Other "toolkits" which I hope to make available in the future 
are ones dedicated to "file", "system", "disk/ directory", and 
"date/time" management. If readers have other ideas, I'd be 
happy to hear them. 

Z3C0M Package Update: The ZSUS set of program execu tables 
(.COM files) was updated in November to irKlude the latest 
versions of ZCPR3 and Z-System pro- 
grams. This package now contains 641 
files, totaling 2,6%k and is bundled on 10 
5.25 DSDD disks for $50. Configuration 
files (.CFG), if available, are included in a 
separate CONFIG.LBR for convenient 
usage with Al Hawle/s new ZCNFG tool 
which recognizes .CFG files from within 
LBRs. The package also contains vital CP / 
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M programs sudi as CRUNCH, UNCR, 
andNULU. 

Z3HELP System Update: I went on a 
blitz during the fiist part of November to 
update the Z3HELP system and by mid- 
mcmth managed to bring it current with 
existing releases. Of course, I'm now sev- 
eral months behind again, but I always 
look forward to examining the new cre- 
ations. Over 100 files were modified and 
an additional SOttc was added to the last 
release(04/ 18/91) of the system. The raily 
new format duoige is the use of the 'y^ 
LBR now for hdp for all the Libraries and 
related programming modules and rou- 
tiiies.User8can update theircunentsetups 
by picking up the update LBRs 
(Z^^LP43, 43b, 43c 43d) on various Z- 
Nodes. Sinceth£seareover40(Mc howevei; 
you mi^t find it easier to acquire the 
entire system anew. Z3HELP sells for $30 (6 disksy now totaling 
1,700k). Current ZSUS subscribers and Z-Node SYSOPs get it for 
half the price ($15). For those not interested in source code, who 
want the ccnnplete complement of Z-System software, I thirik that 
the ccnnbination of the Z3C0M package and the Z3HELF pack- 
age (for on-line documentati(m), is an excellent alternative to 
downloading or puichafflng the many individual Z-System dis- 
tr3)ution LBRs. 

Th« ValiM of Us«r Input 

The team of Z-System developers works hard to refirw and 
enhance the Z utilities we use. A lot of thought is given to any 
changes suggested for a program and much care is taken when 
any improvements are implemented. Upgrades are released usu- 
ally after consultation with other authors and after much testing 
for the problems which cansurfacewhenprogramsaremodified. 



rigurm #2 








1 


B(Xdlt ICH) R(RBcaleaUt« ICM) W(H]rlta Flla) ESC/Q/X Quit 7 1 


CBIOS 


CBIOS 


(P106) 


30 Racoxda 


OPOOh 


Usax Haaoxy Ai«a 


OMX 


ECOO ( 


10)Hacoxda 


OSOOh 


Kxtaxnal Stack 




(BBDO) 




0030h 


Hultipla CaMand Llna 


S3CL 


(BBOO) (203)Bytaa 


OODOh 


Wbaal Byta 


I3MHL 


(K»FF) 




OOOlh 


Extamal Path 


BXPATH 


(BAP4) ( 


S)alananta 


OOOBb 


Kxtaxnal FCB 


BXTFCB 


(BMM) 




0024h 


Maaaaga Buffax 


23MBG 


(BA80) 




OOSOh 


Shall Stack 


SBsnc 


(BAOO) ( 


4) (32)Byta Entxlaa 


ooeoh 


Snvlxonaant Daacrlptox 


Z3BNV 


(B900) ( 


2)Hacorda 


OlOOh 


Naaad Dlxactoxy 


Z3HDIR 


(BBOO) ( 


14)Nanaa 


OlOOh 


Flow Control Packaga 


TCP 


(B«00) ( 


4)Racorda 


0200h 


Haaldent Conand Pkg 


RCP 


(DEOO) ( 


16)Hacorda 


OSOOh 


NZCOM BIOS 


BIO 


(DDO0> < 


2) Racoxda 


OlOOh 


Dlak 0[iaxatlng Syatan 


DOS 


CPOO ( 


28)RacQxda 


OEOOh 


CcHMnd Prooaaaox 


OCP 


C700 ( 


16)Hacoxda 


oeooh 


Input/tXitput Packaga 


I<» 


(GOOD) ( 


0)Racoxda 


OOOOh 


Bffactiva T?kt 


O.SOk 






"■ ■■ 1 



Flgara *3 
BOiMODOO^ei // 

FL Vaxalon 1.0 
Uaagai 

FL <<dlrt}{afn} {...>> {-afn} {/optlona} 
Matchea fllaa that don't natch nagatlva (-) fllaapsc. 
DIR apaea aftax tha fixat ara Ignoxad. 
Optional 



The developers, howeveij can't urKover every bug and can't 
foreseeeverysituationinwhichaprogramwillbeused. Theyalso 
must rely on users' input. Here iswhatJaySage had tosayreoently 
to one programmer who seemed somewhat discouraged over an 
undetected problem: 

'Actually, I think the reason why no one else had reported the 
problem befcae is low expectations, but not with respect to you, 
but withrespect to themselves. Manyusers, when they experience 
a problem, seem to assume that it is their fault. They think that we 
programmers are too good to make mistakes! I have found some 
pretty serious bugs in some d my own programs that could not 
possibly have gone unnoticed by the entire user commxmity. 
What those users don't realize, I think, is how helpful they could 
be by pcxnting out not only full-fledged bugs but also features 
they don't like." 

Enough said? The Z team values your comments and sugges- 
tions. They take pride in their work and like to know that their 
programs are meeting your and their ex- 
pectations! 
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N*w Releases and Updates 

Siitce I missed the last issue (I apolo- 
gize for that), I have four months to make 
up in discussing 2^System program de- 
velopment! Listings 1 and 1 1 think prove 
that there were warm fingers on at least 
some keyboards this winter Thanks go to 
the editor for giving me the space this 
issue to bring you up to date. 

Terry Hazen: EDZCMIO, ENVCFG12, 
JTHLIB12,DATEFN11,DD19,ENVSRC12, 
NZTIM12, PRNTXT16, REMIND15, 
RENAMZ19 

Terry is famous for his fine line of 
system utilities which op)erate in both 
ZCPR3andCP/Menvironments(AC0PY, 
RENAMZ,ERAZ,UNERAZ,DD).Hehas 
also released some interesting tools which 
help to simplify making changes to the Z- 
System environment. (Note his article on 
lOPLDR in 70753). 

EDZCMIO (ZSUS V3 #2) is a saeen- 
oriented editor for NZCOM ".ZCM" 
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.CZG 29r 3.62k CR 10/20/91 17:40 10/20/91 17i40 >ID11.CFG 


U)ll 


•CZM 30r 3.751c OR 10/25/91 21:10 10/25/91 21:10 >LD11.C0M 
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IDll 
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LDCP 
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LDCP 
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U}11 
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.LBR members: 7 matched, 7 active, 4 free, deleted, 11 total 



descriptor files. More flexible than MKZCM, it allows users with 
unique systems to configure non-standard gaps between system 
elements or even to place elements in above-CBI OS locations. Its 
syntax is: "EDZCM [[dir:]zcmfile[.ZCM]]" which allows loading 
of the descriptor either from a ZCM file or directly from the 
Z3ENV. See Figure 2 for a tjrpical screen display. 

The display is sorted by system element address, the highest 
address first, and editable addresses and sizes are displayed in 
standout video (illustrated here in parentheses). The effective 
system TPA is displayed at the bottom. In edit mode, you edit the 
address fields in hex and the size fields in decimal. You can 
position system elements wherever you wish, even above the 
CBIOS, and insert 'dummy' elements to effect a desired onler. On 
exit from edit mode, EDZCM will resort and redisplay the 
elements in edited address order. The 'Recalculation' command 
can be used to recalculate the element addresses beginning with 
the CBIOS and working down (so you don't have to use a 
calculator!). When you're satisfied with the order, addresses and 
sizes, you can write the new system out to a ZCM file. 
EDZCMIO.LBR includes a sample AMPRO.ZCM file for Ampio 
users in which the wheel byte and path have been relocated from 
page to addresses above the CBIOS. 

ENVCFG12 (ZSUS V3 #2) is another new program which 
provides a way of configuring the contents of the Z3 environment 
through use of ZCNFG. Typical usage from an alias script is: 
"ENVCFG L; ZCNFG ENVCFG; ENVCFG S; GO I". This loads a 



copy of the current environment into 
ENVCFG.COM's buffers, allows config- 
uring of the contents of those buffers, 
saves the modified environment to 
memory, then clears the contents of the 
bufferinENVCFG.COM. ThenewZ3ENV 
can also be saved to a specified file (.EN V 
is the default filetype). 

Two related tools which Terry devel- 
oped some time ago aie ENVSRC, which 
creates a commented source code file 
(Z3ENV.Z80) from the Z3 environment, 
and TCSRC, which creates a source code 
file(MYTERM.Z80) from a given terminal 
file (MYTERM.Z3T). The source code out- 
put from both of these programs can be 
used as a reference for patching or can be 
edited themselves, assembled and loaded 
to install changes to the environment. 

Terry has also released his set of cus- 
tom routines (JTHLIB12), originally 
developed for use in REMIND and ZP, 
which are modified versions of various 
SYSLIB, ZSLIB and VLIB routines. Vers 
1.2 fixes a bug in the FNAMZ filename 
scaimer and adds extended versions of 
VLIB routines GXYMSG, VPRINT and 
VPSTR. 

Terry's other updates include: 

• DATEFNll— fixes a hi-bit filtering 
problem with the help filename and adds 
JTHLIB filer\ame display calls. 

• REMIND15— the "upcoming 
month" display now highlights the cur- 
rent date and offers three options: 
C — display current month's upcoming 
reminders, A — display all upcoming 
reminders and N — no upcoming remind- 



ers. 



• RENAMZ19 — several new options include the ability to 
add or delete fileriame prefixes. 

• DD19 — now displays the status line on user abort as well as 
at normal exit; adds a printer init string. 

• PRNTXT16 (ZSUS V3 #2)— now ZCNFG configurable and 
includes a printer status check. 

Gene Pizzetta: C0NCAT16, CRCBLDH D21, DATSTP19, 
ECH014,ERASE57, FA16A, FILT81, FL10,JUST13, LCSIO, LDll, 
PRETTY31, RC0PY21, SWZIO, UMAP18, XF0R15, ZSLIB34, 
ZTIMEM 

Remember the excitement over XFOR, which we covered in 
depth in TCJA91 Well, Gene has developed another utility based 
on collaboration similar to that with XFOR. While Gene was 
working on CPD, his "Compare Directory" utility, he noted that 
there was no comprehensive set of routines for reading and 
generafing lists of disk files. None of the current directory listers, 
for example, can output a single-column list of files. It became 
evident that some generalized routines were needed for handling 
file lists from within programs as well as a separate directory 
utility that specialized in creating disk-based file lists. V^II, Gene 
has come up with both! 

Gene describes his approach to readir^ disk-based file lists 
thus: "Filelistprocessing is accomplished asastream, with theend 
of a filename assumed when the read routine reaches a comma or 
a non-printable character. This is not only efficient, but allows 
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using lists pnxluoed by the likes of dB ASE 
and BASIC. Multiple non-printable char- 
acters areamplyskippedover. This allows 
certain control characters to be used as 
maiteis in the list, either to tag particular 
files or to mark blocks of files." 

Gene makes use of the new routines in 
RC0PY21, CPD15, and the new FLIO, and 
other programmers are now considering 
their use. Rob Friefeld's ikw version df 
ZFILER (ZFIOQ) writes out tagged files to 
disk so that the tagging can be preserved 
across macro invocations. Gene's routines 
raise the possibility of tagging files based 
on datestamps, etc., without having to 
add considerably to ZF's code. Rob's XOX 
utility presently uses a complex internal 
file list generator and might also benefit 
from this being handled externally to the 
program. Gene is also thinking of modify- 
ing W.COM to read file lists for programs 
that don't otherwise handle them. He sug- 
geststhatvensionsofCRUNCHandUNCR 
which handle lists might also be handy. 

Now let's look at Gene's FILEUST 
(ZSUS V3 #3), a ZCPR3 utility which cre- 
ates filelists on disk for use by other 
programs. SeeFigureS for PL's usage screen 
and some sample displays. 

FL allows multiple ambiguous file 
specs, includir\g a negative specification 
(filespecs preceded by a tilde). The error 
flag is set if no matching files are found. 
Matching filenames are written to a disk 
file, in uppercase, one ruime per line in 
standard command line format 
ffilename.typ"). Optionally, the DU in 
, which the fUe is located can be included 
with the filename. As is customary with 
Gene's utilities, a number of configura- 
tion options are available using ZCNFG: 
display of filenames in upper- or lower- 
case; output of FILEUST to either the 
currently logged or target directory; giv- 
ing FILELIST a different r\ame; setting the 
error flag and invoking the error handler 
on abort (to allow aborting a ZEX or SUB 
batch operation). 

Like XFOR, FL offers a lot of possibili- 
ties for enhar>cement and we should see a 
numberof future upgrades. Somesophis- 
ticated negative filesfjecsmightbe possible, 
for example, as well as an dbility to select 
files by attributes or combirwtions of at- 
tributes. 

Another of Gene's accomplishments is 
LD (ZSUS V3 #2), his new Library Direc- 
tory tool. LD is based on LDIR-B, but is 
intended to be much more versatile, with 
numerous command line and configura- 
tion options, and making more extensive 
use of Z-System facilities, while remain- 
ing compatible with vanilla CP/M and 



Listing fl Naw Raleaaaa: 

vara aya/aua kb rac crc llbrary/alza laaued author 



C12e.Z3T 1.00 3 11 487B C128TCAP 2 12/0S/91 Ed Pllim 
SYS Kxtandad TCAP for the C-128, ijq>lamantlng many of tha extandad 
HIf'41 functiona, including aisple ASCII charactarafor tha graphlca. 
CFG^ 

CRCBUIIA.COH 1.40 3 18 04D5 CRCBL014 20 10/03/91 Gena PlzzBtta 
SYS Z'lflad varalon of SIG/H'e CRCBUILD. Hecognizea DU/DIR apeca, takea 
Hlf^ tha dlak nunbar autcmatically froo the diak label (If one exlata), 
CFG-Y aeta the error flag, and la con^tlble with CRCZ'a CRC-chacklng. 

BDZCM.CON 1.00 3 V302 7 54 5FS4 EDZCMIO 3S 11/08/91 Ttorry Hazen 
SYS Screen-oriented editor for the NZCOM ZCH ayatan deacrlptor file. 
HliP-y Dlaplaya and can edit NZCOH ayatem eleoenta and aizea frcm a ZCM file 
CFG-Y or from the Z3ENV. 

BHVCFG.COM 1.20 3 V302 2 13 710C ENVCFG12 21 11/21/91 Terry Hazen 
SYS Uaad with ZCNFG and ENVCFG.CFG to configure the current contenta of 
HliP-Y the ZCPR3 envlronnant (valid drive vector, max drive, etc.). Buff era 
CFG-Y the Z3ENV contenta and wrltea them back after modlf icationa . 

FILEATTR.COH 1.6a 4 V303 4 32 8ASC FA16A 38 01/18/92 Gene Pizzetta 
FIlE Dlaplaya or aeta the attributes of selected groups of files under 
Hlf-Y CF/H or any of Ita replaceraenta . Configurable with ZCNFG. 
CFG-Y Originally dlstrllxited with ZDOS vs 1.1. 

FL.COM 1.00 3 V303 4 31 C5DD FLIO 24 01/19/92 Gene Pizzetta 

FII£ FL creates file lists on disk for use by other programs. Multiple 

HLP-Y ambiguous file apecs, including a negative spec, may be given. 

CFG-Y Hatching file names are written to a disk file. 

HELPCH.CCM 1.00 3 V303 6 42 D5D7 HELPLZH 48 01/21/92 Howard Goldatein 
HKTiP Z-System Help tool which works with LZH-encoded help files (.HYP) 
HLP-N instead of crunched (.HZP) or squeezed (.HQP) filea. Handles 
CFG-Y standalone filea. 

lOPIDR.RBL 1.10 3 2 9 6656 lOPLDRll 14 06/07/91 Terry Hazen 
lOP Generalized lOP loader REL module that may be linked to load and 
Hlf-Y reotove a target custom NZCOM TOP module. Designed to be called by 
CFG-Y a user-written custom loader. 

JTHLIB.REL 1.20 2 9 5C6F JTHLIB12 13 01/27/92 Terry Hazen 
PROGS Custcai routines originally developed for use in REMIND and ZP. 
Includes extended versions of VLIB routines GXYMSG, VPRINT, and 
VPSTO.. 



HLP<4I 
CFG-H 

LCS.COM 
SYS 

HLP>4I 
CFG-Y 



1.00 11 86 3941 LCSIO 20 10/03/91 Gene Pizzetta 
Loads chiuracter sets to Wyse 60 and Televldeo 965 terminals, including 
a Roman font similar to that on MS-DOS machines and an easier-to-read 
Courier font. Provides also for a user-defined font. 



LD.COH 1.10 V303 4 32 D55E LDll 45 10/25/91 Gene Pizzetta 

LBR LBR directory utility that shows member files along with their create 

Hlf-Y koSl modify dates and times, ccopresslon method and unccn^ressed file 

CFG-Y names. Displays aodiedded cooments and has optional printer output. 

LHB.COM 1.00 3 V303 7 49 8863 HELPLZH 48 01/21/92 Howard Goldstein 

HELP Z-Systam Help tool %dilch works with I/ZH-encoded help files (.HYP) 

Hlf-N instead of crunched (.HZP) or squeezed (.HQP) files. Handles help 

CFG-Y files in libraries. 

SHZ.COM 1.00 3 3 21 D4A4 SMZIO 19 11/15/91 Gene Pizzetta 

DATE Replacement for SHX and SWIIME for SB180s running ZSrX)6. Reads the 

Hlf-Y Snartwatch chip and sets the system 'heartbeat' clock via ZSIX>S. 

CFG-Y Works under both Microodnt BIOS and XBIOS. 



Z3PLUS. See Y'xgure 4 for LD's help screen 
and several sample displays. 

LD's many options set it apart from other 
LBR directory listers: embedded conunents 
can be displayed on a separate line (up to 76 
characters); an alternate display provides 
member names, sizes, CRCs, and indexes in 
two-column format; the number of match- 



ing members and free library directory 
entries can be stored in message registers; 
and printer output and wheel protection 
are supported. All this and more in less 
than 4k. 

Gene's other updates include: 
• C0NCAT16 (ZSUS V3 #2)— Many 
changes have been made since vs 
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Listing *2 Ravlaad Program*: 

name vers sys/sus kb rec crc llbriury/alze issued author 

BCINST.COM 3.0b 5 39 F23C BCOHP30B 31 01/27/S2 Rob Friefeld 
FILE Screen-oriented, control-key Installation program for BCOMP. 
HLP-Y 
CFG=N 

BCOHP.COH 3.0b 9 71 4C45 BCOMP30B 31 01/27/92 Rob Friefeld 
BCOMP. 40H 3.0b 4 12 90 35E6 BCOMP30B 31 01/27/92 Rob Friefeld 
FILE Ccmpares two binary files visually. Can ccmpare selected sections 
HLP-Y of a file, or a file and memory. Requires ZCPR3.0+ or Z3PLUS, 
CPG=H 79X24 CRT with EREOL, CLS, GOTOXY. 

CHAZE.COH 2.40 29 229 7DA2 CMAZE24 38 09/24/91 Lee Bradley 
GAME MBASIC/BASCOM game which uses Z-System TCAP data. Creates a maze of 
HLP=N walls and asks you to position a ball in the maze. Data entry is 
CF6=N test done with ZEX scripts. Uses Z3BAS library of routines. 

CONCAT.COM 1.60 V302 7 56 C5BD C<»ICAT16 53 11/12/91 Gene Pizzetta 
WP Concatenates two or more source files into a destination file, 
HLP=y similar to PIP, or appends them to an existing file. Accepts both 
CFG=Y DIR emd DU specs. Checks for adequate disk space. For ZCPR3 only. 

CPD.COM 1.50 V303 4 32 F156 CPD15 32 01/19/92 Gene Pizzetta 

DIR Ccnqpares two dlrs and indicates which files exist in both dlrs and 

HLP=Y which exist only in the first dir. Allows setting of archive bit on 

CF6=Y those files which exist in both dlrs. Upper- or lower-case display. 

D.COM 2.10 3 4 32 BA87 D21 40 11/18/91 Gene Pizzetta 

DIR Directory utility providing: display in lowercase, total disk 

HLP=Y capacity, total bytes used by a file, remaining bytes on disk, etc. 

CFG=Y Configurable with ZCNFG. Original (1984) by Hank Blake. 

DATBFN.COM 1.10 2 15 4334 DATEFNll 16 01/19/92 Terry Hazen 
DATE ZCPR3/ZSD0S utility which reads the ZSDOS clock and creates or 
HLP=Y optionally deletes an en^ty label file with the correct date as the 
CFG=Y filename. Filename date format configurable with ZCNFG. 



DATSTP-P.COM 1.90 
nATSTP-P.30M 1.90 3 
DIATSTP-P.40M 1.90 4 

DATE See DATSTP-U.COH. 

HLP=Y 

CFG=Y 



5 35 C417 DATSTP19 

5 35 A97E DATSTP19 

6 42 607A DATSTP19 
For Z3PLUS only. 



64 12/16/91 Gene Pizzetta 
64 12/16/91 Gene Pizzetta 
64 12/16/91 Gene Pizzetta 



DATSTP-U.COH 1.90 6 41 4C1B DAXSXP19 64 12/16/91 Gene Pizzetta 

DATSTP-U.30M 1.90 3 6 41 8B9A DATSTP19 64 12/16/91 Gene Pizzetta 

DATSTP-U.40H 1.90 4 6 48 48EC DATSTP19 64 12/16/91 Gene Pizzetta 

DATE Displays or changes the create and modify date stamps on any file 

BLP=Y frcm the camnand line. Universal version (ZSDOS/ZDDOS/ZRDOS with 

CFG=Y DateStamper; under Z3PLUS will display but not change date staiqis). 



DATSTP-Z.COM 1.90 3 
DATSTP-Z.30M 1.90 3 
DATSTP-Z.40M 1.90 4 

DATE See DATSTP-U.COM. 

HLP-Y 

CFG=Y 



4 27 5461 DATSTP19 64 12/16/91 Gene Pizzetta 
4 27 206A DATSTP19 64 12/16/91 Gene Pizzetta 
4 32 Be9E DATSTP19 64 12/16/91 Gene Pizzetta 
For ZSDOS and ZDDOS only. 



DD.COM 1.90 3 4 30 1941 DD19 35 12/31/91 Terry Hazen 

DIR Disk directory utility which can display files selected by file 

HLP^'Y attribute as well as by file mask. 
CFG=Y 

ECH0.COM 1.40 1 8 8A06 ECH014 18 10/10/91 Gene Pizzetta 
ECH0.30M 1.40 3 1 8 6C5F ECH014 18 10/10/91 Gene Pizzetta 
ECH0.40M 1.40 4 2 12 BF64 ECH014 18 10/10/91 Gene Pizzetta 

SYS Allows text entered at ccmniand line to be typed to the screen 

HLP=Y without the operating system acting on it. 

CFG=Y 

EHVSRC.COM 1.20 4 6 41 IFFF ENVSRC12 13 11/15/91 Terry Hazen 
PR0G2 Creates ccnmented source code frcm a Z3 environment using the latest 
HU>=Y extended environment definitions in NZCOM.ZCM. 
CFG=N 

BRASB.COM 5.70 3 4 26 F876 ERASE57 36 11/14/91 Gene Pizzetta 
ERASE. 30M 5.70 3 4 26 lEBl ERASE57 36 11/14/91 Gene Pizzetta 
ERASE. 40M 5.70 4 4 32 3EC7 ERASE57 36 11/14/91 Gene Pizzetta 
FILE Transient counterpart of ERA. Erases read/write files frcm conmand 



1.4: CON:, LST: and AUX: can be used in 
place of the destination file; a new "P" 
option pages output to console or printer; 
a new "H" option resets hi-bits and re- 
moves control characters from the screen; 
the "I" option doesn't have to be at the 
end of the option list; new, more specific 
error messages; more configuration op- 
tions; ZSLIB HV routines are now used 
in place of larger VLIB ones. 

• CPD15 (ZSUS V3 #3)— Since ver- 
sion 1.0, options have been added to 1) 
include DU specs with filenames in the 
CPDLI ST output file, 2) output matching 
filenames to a diskfile, and 3) suppress 
console output. More configuration op- 
tions have been added, changes to the 
display and usage screen, bug fixes and 
code optimization. CPD is also much 
faster now that both directories to be 
matched are loaded into memory. D21 — 
adds several new features; fixes some 
long-standing bugs; now works under 
vanilla CP/M. 

DATSTP19— VLIB references have 
been replaced withmuchshorterZSLIB34 
routines, keeping the executables to 6k 
cmd under. 

• ECH014 — corrects a problem when 
running under BYE; adds matching 
RCPECHO, Type 3 and Type 4 versions, 
and ZCNFG configuration. 

• ERASE57 — adds a Type 4 version; 
the Type 3 version has been made CPM- 
safe; the program banner is improved; 
some code changes help keep the size to 
4k. 

• FA16A (ZSUS V3 #3)— FILEATTR 
is a utility to quickly set, reset, or display 
file attributes. It was originally distrib- 
uted with ZSDOS and has since been 
made compatible for use under ZSDOS, 
ZRDOS, and CP/M 2.2. Under ZCPR3, it 
allows error flag setting, error handler 
invocation, and an enhanced display. 
FA 16 A adds much needed documenta- 
tion. 

• FILT81 (ZSUS V3 #2)— now checks 
for ambiguous filenames; the display of 
line count progress reports is now a con- 
figuration option. 

• JUST13 (ZSUS V3 #2)— same 
changes as made to FILT81. 

• PRETTY31— cases of labels and 
opcodes are now a command line op- 
tion; adds a few SLR and ZMAC 
pseudo-ops to the table; a bug fix, some 
minor code tweeks. 

RC0PY21— corrects a bug in the 
listfile parsing routine. 

• UMAP18 — correctsaproblemwhen 
runningunderBYE;otherminorchanges. 

• XF0R15 (ZSUS V3 #2)— now prints 
the "searching" message only when a 
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search string is given, not after each 
entry during sequential FOR file dis- 
plays. 

• ZSLIB34 — adds switchable output 
routines and makes some bug fixes. 

• ZnME14— rereads the clock after 
settingit; connects some paiserbugs; 
adds Type 3 and Type 4 versions. 

Bruce Morgen: MENU42, PWD21, 
SAVNDR14, SUB35, Z33IF16 

Bruce continues to bring some of the 
older, butstill useful, Z-System utilities up 
to "modem" standards. 

In SUB35, Bruce has made some ambi- 
tious improvements while still preserving 
backward compatibility with scripts writ- 
tenforSUBMIT, SUPERSUB, and previous 
versions of the ZCPR3 SUB series. Prob- 
ably most significant is the ability to read 
SUB scripts from astandaid LBR file, like 
ZCNFG's .CFG files, .SUB files tend to be 
very short and quickly eat up disk space. 
It makes sense to bundle them into LBRs. 
SUB scripts can now be searched in LBRs 
1) from the command line in the same 
manner as LX — "SUB 
[DIR:]LBRNAME[.TYP] 
SUBNAME[.TYP]"— or 2) by searching a 
user-patched library after the search for a 
standalone SUB script has failed. 
SUB1NST.COM is provided to patch the 
name and location of this secondary li- 
brary. SUB35 also recognizes the 
UNIX-style "$*" (entire command line) 
parameter, supports Z34ERR12-compat- 
ible error handling, and observes the 
,Z3ENV quiet flag. 

Bruce's other updates include: 

• MENU42 — adds direct support for 
BridgerMitcheirs''AT"background 
timer and shrii\ks the tool back to its 
1984 size of 4k. 

• PWD21 — adds a Type 4 version; 
improves the program banner; uses 
the new ZSLIB video highlighting 
routines in place of the larger VLIB 
routines. 

• SAVNDR14 — ^implements a Type 4 
version; adds the T)^ and load 
address to the program banner; con- 
tains some minor code changes. 

• Z33IF16— usesthenewZSLIBvideo 
highlighting calls in place of VLIB 
ones. Two other developments have 
to be mentioned before closing out 
this rather lengthy column: 

Howard Goldstein has reworked the 
Z-System Help tool into a version which 
will read LZH-enooded help files (.HYP). 
HELPLZH.LBR (ZSUS V3 #3) contains 
HELPCH.COM, which handles 
standalone files, and LHH.COM, which 
handles files within libraries. 



HLP>Y Una and prcoipts for erasure or read-only files. 
CFG-Y Va. 5.0 (05/84) by Richard Conn. 

PILT.COH 8.10 V302 4 30 0393 FILT81 24 10/03/91 Gene Pizzetta 
KP ZCPR3 rework of Irv Hof fa PILT7 tool which seta or expanda taba and 
HLP-Y raoravea several typea of unwanted characters in ASCII text, WordStar 
CFO-Y docunents or asseobler source code files. 

RELPLSH.COH 1.1b 4 3 21 69CB BRU>LBH 3 Ol/OS/92 Rob Prlefeld 
HELP Belp program for LSH va 1.1. 
HU>-Y 
CFG-H 

JUST.CCM 1.30 V302 4 32 A6A9 JUST13 41 10/03/91 Gene Piazetta 
MP ZCPR3 rework of Irv Hof fa tool to juatify ASCII and WordStar text 
BLP'Y filea. Full ccanand line operation, IXJ aupport, error-flag aetting, 
CFG-Y quiet mode, and transfers create dateatanpa under ZSDOS. 

LT.COH 3.10 CO 7 54 EE89 LT31 «4 12/16/91 Brian Hurphy 

LBR Library Type can type normal, LZH-encoded, crunched or aqueezed files 

HLP>4I whether atandalone or in a .LBR. Can extract /uncrunch any/all files 

CFG^ at the aame time. Adapted frcai Steven Holtzclaw'a lATXTYP (06/83). 

MEMU.COH 4.20 4 32 2437 MEHU42 48 10/30/91 Bruce fkirgen 
SHELL The ZCPR3 menu front-end proceaaor. Shell «rtiich reads a .MNU file 
HU-Y and processes ccnnanda from it. 
CFG-N 

NZTIM.REL 1.20 4 3 24 2678 NZTIM12 43 01/27/92 Terry Hazen 
PR0G3 Library of Date/Time subroutines which allow data or pointers to data 
RLP-Y to allow utilities to do whatever necessary with Date/Time. Entirely 
CFG-N self-contained. Original (2/10/90) by Joe Wright. 

PDAT.REL 1.20 4 2 12 OFOl NZTIM12 43 01/27/92 Terry Hazen 
PR0G3 Library of routines which use NZTIH and SYSLIB routines to print 
HLP-Y various forms of Date and Time. Original (2/10/90) by Joe Wright. 
CFG-M 

PRBTTY.COM 3.10 3 5 38 5CD5 PRETTY31 32 10/03/91 Gene Pizzetta 
PR0G2 Standardizea the caae of opcodes and labels in Z80 and 8080 source 
RIf-Y code. Baaed on Carrol Bryan 'a PRETTY23. Preserves create date 
CFG-Y stamps under ZSDOS. Configurable with ZCNFG. 

PRMTXT.COM 1.60 V302 1 6 E39D PR11TXT16 26 10/05/91 Terry Hazen 
SYS Console/printer message utility program triiich creates "instant" 
Hlf-Y text display .COM filea to the console or printer. 
CFG-N 

PWD.COM 2.10 4 25 813E PWD21 48 11/12/91 Bruce Morgen 

PWD.30M 2.10 3 4 25 A760 PWD21 48 11/12/91 Bruce Morgen 

PWD.40H 2.10 4 4 30 CEB4 PWD21 48 11/12/91 Bruce Morgen 

SYS Displays the namee of DU and DIR nanea with paging. 

HLP-Y Vs 1.0 (03/84) by R. Conn. 

CFG-Y 

RC0PY.COM 2.10 4 29 E445 RC0PY21 24 01/11/92 Gena Pizzetta 
FILE Copies a list of filea between two directories. 
HU>-Y 
CFG-Y 

RSUND.COM 1.50 3 5 39 3730 REMIND15 38 01/26/92 Terry Hazen 
DATE Af^jointment reminder utility for ZCPR3 and ZSDOS with clock. Will 
HLP-Y display and optionally print a sorted and paged list of dated appt 
CFG-Y reminder line* with optional time entries from a text datafile. 

REHAMZ.COH 1.90 3 5 33 9FD3 RENAMZ19 64 11/08/91 Terry Hazen 
FII£ Enhanced Z80 file renaming utility for CP/M 2.2 and ZCPR3 CCP's 
HLP-Y running under CP/M 2.2, Z80DOS, ZRDOS, and ZSDOS. Ccoipanion to 
CFG-Y ACOPY, DO, ERAZ, and IWERAZ. Vs 1.0 (04/87) by Tterry Hazen. 

SAVNDR.COM 1.40 2 12 5A49 SAVNDR14 12 11/22/91 Bruce Morgen 
SAVNDR.30M 1.40 3 2 12 00C2 SAVNDR14 12 11/22/91 Bruce Morgen 
SAVNm.40M 1.40 4 2 16 1ED9 SAVNDR14 12 11/22/91 Bruoe Morgen 

NDR Hrltsa a reloadable (by IJ>R) copy of the resident Named Directory 

HLP-Y module to a disk file. 

CFG-N 

SC0PY.COM 0.80 4 15 120 D6DB SCOPY08 26 10/21/91 Rob Friefeld 
FII£ Screen-oriented file copy utility. Displays source and destination 
HLP-Y directories in vertical windows. ZF-like ccmnanda. Supports file 
CFG-Y selection and copy by datestanp. Extended TCAP required. 
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S0B.COM 3.50 4 32 7379 SUB35 24 01/30/92 Bruce Horgen 

SYS Replacement for the SUBMIT program provided with CP/M. Provides 

HLP-Y nestable SUBMIT runs, interactive entry, and user customization. 

CFG=H Vs. 1.0 (10/81) by Richard Conn. From SuperSUB 1.1 by Ron Fowler. 



24 01/30/92 Bruce Morgen 



SUBIHST.COH 3.50 1 8 7ED5 SUB35 
SYS Install program for SUB.COM vb 3.5. 
HLP-Y 
CFG-N 



TCSELECT.COM 3.00 5 35 780B TCSELE30 13 12/04/91 Brian Moore 
SYS Allows user to interactively review the contents of a Z3TCAP.TCP 
HLP-Y file and select a terminal from it. Supports extended TCAPs 
CFG-N con^tlble with the Version 4 libraries. 

UMAP.COH 1.80 2 IS 903C UHAPIS 23 10/10/91 Gene Pizzetta 
UMAP.30M 1.80 3 2 16 D4A5 UMAP18 23 10/10/91 Gene Pizzetta 
.UMAP.40M 1.80 4 3 22 EC57 UMftPlS 23 10/10/91 Gene Pizzetta 
i DIR Shows which user areas have files and how many directory entries those 
HLP=Y files use. Can also show: total nbr of entries used, those still 
CFG^y free, free disk space, as well as a list of empty directories. 



44 12/01/91 Gene Pizzetta 
" delimited file catalogs. 
Numerous configuration 



39 10/13/91 Bruce Morgen 
39 10/13/91 Bruce Morgen 
39 10/13/91 Bruce Morgen 



XF<«.COM 1.50 V302 6 41 2343 XF0R15 
BBS Z-System FOR utility for displaying "- 
HIf«Y Coomand line source file specification. 
CFG^Y options can be set with ZCNFG. 

Z33IF.COH 1.60 3 4 28 6B0E Z33IF16 
Z33IF.30H 1.60 3 4 28 90C9 Z33IFie 
Z33IF.40H 1.60 4 4 32 742E Z33IFie 

SYS Adaption of C0MIF.COM for ZCPR3.3. 

HLP-Y 

CPG=H 



ZBIB.COM 1.00 8 61 4E0B ZBIBlO 18 11/29/91 Joe Mortensen 
DBASE Bibliographic database manager derived from ZDB. 
HLP^Y 
CFG-Y 

ZCNPG.COM 2.10 4 V212 8 62 PB96 ZCNFG21 115 11/07/91 Al Hawley 
SYS Universal configuration utility which configures option data in 
HLP'Y executable files. Uses .CFG overlay file. 
CFG=y 

ZDB.COM 1.80 8 64 D1C2 ZDB18 51 01/30/92 Joe Hortenson 

DBASE Small, fast name and address file manager with built-in label and 

HLP'Y envelope addressing features. NZTCAP tmd VLIB4D support. 
CFG=Y 

ZDT.COM 1.20 8 59 A635 ZDT12 20 01/27/92 Joe Mortensen 

ZDTf.COM 1.20 8 62 ED48 ZDT12 20 01/27/92 Joe Mortensen 

DBASE Z-System Day Timer, a daily planning calendar derived from ZDB. 

HIf=Y Autcnatically reads real-time clock and displays current day's 

CFG-Y schedule. Requires ZCPR3.0+ and extended TCAP. Version for ZSPLUS. 



ZF10QD4+.COM l.Oq 
ZP10QD5+.C0M l.Oq 
ZF10QD5.COM l.Oq 
ZF10QR4'f.COM l.Oq 
ZF10QR4.COM l.Oq 
ZF10QR5+.C0M l.Oq 

TILE 

HLP"Y 



3 15 119 4B0E ZFIOQ 

3 15 119 94E5 ZFIOQ 

3 15 115 537C ZFIOQ 

3 15 119 04BB ZFIOQ 

3 15 lis BD22 ZFIOQ 

3 15 119 1ED9 ZFIOQ 
Enhanced version of VFII£R (follow-on to VF42B) designed to take 
advantage of ZCPR3.3-I- facilities. Versions for 4/5-co1b, dim/ 



118 01/14/92 Rob Friefeld 

118 01/14/92 Rob Friefeld 

118 01/14/92 Rob Friefeld 

118 01/14/92 JU^ Friefeld 

118 01/14/92 Rob Friefeld 

118 01/14/92 Rob Friefeld 



CFG=Y reverse video, DateStamper support. Vs 1.0 (1/1/87) by Jay Sage. 

ZSLIB.REL 3.40 4 29 228 1C4E ZSLIB34 84 10/09/91 Gene Pizzetta 
ZSLIBS.REL 3.40 4 27 211 B72C ZSLIB34 85 10/09/91 Gene Pizzetta 
PROGl AsBsmbly language routines to assist progranniers in handling date- 
Hlf-Y stamp naintenace under ZSDOS, Z3PLUS, and CP/M Plus. Microsoft 
CFG-N REL and SLR formats. 



ZTIME-t-.COH 1.40 4 27 874C ZTIME14 4 

ZTIME+.30M 1.40 3 4 27 691A ZTIME14 40 

ZTIME-)-.40M 1.40 3 5 34 4B58 ZTIME14 40 

ZTIME.30M 1.40 3 4 27 07C0 ZTIME14 40 

ZIIHE.40M 1.40 3 5 35 D986 ZTIME14 40 

ZTIMB.COH 1.40 4 27 CACA ZTIME14 

DATE A hardware independent clock utility for setting or displaying the 
HLP^ date and time under ZSDOS or Z3PLUS. Options include the ability to 



10/10/91 Gene Pizzetta 

10/10/91 Gene Pizzetta 

10/10/91 Gene Pizzetta 

10/10/91 Gene Pizzetta 

10/10/91 Gene Pizzetta 

40 10/10/91 Gene Pizzetta 



Rob Friefeld has released an update to 
ZFILER (ZFIOQ) with the following en- 
hancements: 1) the ability to filter VIEW 
and PRINT output (highbits are removed, 
only alphanumerics, CRs, and LFs are 
printed, and TABs are expanded); 2) the 
ability to remember all the file tags on 
return from a Z command or macro run 
(mentioned above). The file list is written 
to a temporary disk file (ZFILER.TAG, in 
a configurable directory), and automati- 
cally read back. 3) the ability to set the 
Group Tag/Untag and Wild Tag/Untag 
to work on the entire ring, or just from the 
file fxjinter (Group Reverse always works 
on the entire ring). List macros now soft- 
tag fUes just like regular group macros. 

Z Message Base 

Question: What is the acceptable way 
of handling the quiet flag? Answer. I usu- 
ally handle the quiet flag this way: 

a. The program has a configuration 
byte that allows setting it to default to 
quiet mode. 

b. If the quiet flag is set, the program 
defaults toquiet mode no matter how the 
configuration byte is set. 

c. The command line Q option toggles 
whatever is the current default, whether 
the default has been set by the configura- 
tion byte or the quiet flag. 

Many programs I have released use 
this method, including DATSTP, 
CONCAT, etc. (Gene Pizzetta, Z-Node #3, 
2/2/92) • 



"Reading made Don 

Quixote a gentlemen, but 

beiieving wtiot he read 

made him mad." 

-George Bernard Shaw 
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The Computer Comer 



By Bill KIbler 



A new year has started and with it a few new leafe are being 
turned over by myself. Hopefully I am getting ahead of things as 
I will be moving houses again soon. What I want tocover this time 
is some understanding about a few key words I use. They are 
important words and as such 1 feel a whole artide on them is 
needed. 

READABILrrV 

is my first word and is not what most users understand it to 
mean. To me to be readable, in the case of a manual, is not just 
covering all the topics, but educating the reader as well. To be 
readable it must have aclearly defined structure. The reader needs 
to be able to find items of interest quickly The structure must clear 
enough that a reader can see the structure and start using it 
immediately. 

This topic is fresh with me as I have been spending a laige 
amount of time with one of our technical writers. We have a new 
product going out and thus a new manual. They had taken an old 
manual and just changed a few key words and items. Well, that 
was until it hit my desk for review. To say the red ink flowed over 
many pages would be an understatement. I feel the writer had 
never had anybody in the company ever really review one of his 
manuals before. 

What am 1 changing to make the manual more readable? The 
first problem was a lack of structure. The installation section ran 
on forever cind intermixed topics and instructions. The new 
manual now has a clear introduction that describes terms used 
and how things work. That brings the reader up to the point of 
knowing what and why the remaining steps are needed. Those 
steps now are broken into separate chapters or sections that 
coincide with a logical grouping of needed actions. 

In short, the document lacked any clear structure. It was 
almost impossible to find a given topic without some hunting and 
then the why or how of the function might not be apparent. That 
"how and why" is actually very important as it helps the reader 
weigh the information for relevance to their needs. I remember 
readingonesectionand thinkingwe had already covered it, when 
I suddenly discovered the topic was actually different. The prob- 
lem was two terms that were very dose to each other. 

I can not complain about use of terms enough. We all have had 
troubles with acronyms. Those wonderful two and three letter 
statements that mean nothing and are never explained. Manuals 
are full of them and my complaint is they do not get explained 
often enough. Do it once or twice a section at least. But another 
problem with terms is use of similar or repetitive terms. In our 
example was the overly used term "file". 

1 am sure we all have seen the lermfUe used 10 or 15 times in 
one paragraph. How many of you can keep track of which file we 
are talking about. In our manual it wasn't even a file, but really a 



list of lists stored in a file strudure. We have multiple indexes into 
these lists which determine which file gets sent to where (see even 
describing the problem gets confusing). The manual referenced 
the list as "XX file" and then said it loaded files from it. Not only 
was it confusing but inaccurate as well. The solution involved 
explaining that it was a list. Then explaining how the list is 
multiply indexed. Lastly we showed the relationship between the 
indexes and the file name that was ultimately loaded. 

STRUCTURE 

1 could go on with the manual problems and pick over lots of 
the fine points. The objective here is to get you to save time and 
money when preparing your own manuals. I say this after having 
seen a friends manual he produd for his new produd. His first 
problem was size, over an inch of standard letter size pages. The 
printing cost are about $15 each and the labor cost had he paid for 
them are enormous. The reason I feel it was wasted was lots of 
extra work was performed that will not return him any buyers. 

Now writing to sell is not the best way to write a manual. 
Writing with a clearly defined audience and strudure will how- 
ever produce a readable and marketable item. How so? Over the 
years I have used the strudure that says a manual should be 
broken into a beginners, intermediate, and advanced section. I 
find that idea is sound no matter which group is using the 
dociunent. Sales literature, fliers, and each sedion of a manual can 
also use this strudure. We start a sales pitch with the old adages 
of tell them "WHO, WHAT, and WHY". 

I have changed the who, what, why, to introduce it, explain it, 
and show it off. These really are still my favorite strudures of 
beginner; intermediate, and advanced . Remember that whenever 
you start a new topic or look at a new produd your start as a 
beginner. You learn enough about it to then start asking questions 
about what it will do for me. At that point you have passed into 
the intermediate state where we then start asking question like 
"why can't 1 do this or that". 

My suggestion to my friend was change his strudure. Most of 
the information has already been written, it just needs to be 
restrudured. I feel also that as he restrudures he w ill see that many 
items and topics are covered more than once. Once the strudure 
is dearly outlined it also makes it possible to judge the content of 
sedions. Too often 1 find whole subsections that just do not belong 
either in that location or in the manual. 

When talking about sales, 1 like the clear struduring as it allows 
for a single sedion (usually the beginners sedion) tobe pulled out 
and shipped to would be buyers. That may also help you under- 
stand the importance of what a buyer looks for in a manual. I have 
my own items I check for before buying as I am sure you do to. I 
find however that most people checkout items like indexes, table 

See Computer Comer, page 19 
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Internal Programmer for PC 



$139.95 



NewlntelligentAveraginoAlQorithm.Programs64Ain10sec.,256in1miii.,1Meg(27010,011)in2min.45sec., 



2 Meg (27C2001 ) in 5 min. Internal card with external 40 pin 2iF. 



Reads, verifies, and programs 2716, 32, 32A, 64, 
64A, 128, 128A, 256, 512, 513,010, 011,301, 
27C2001,MCM 68764, 2532 
Aulomstically sets programming volUge 
Load and save buffer to disk 
Binary. Intel Hex, and Motorola S formats 
Upgradable lo 32 Meg EPROMs 
No fersonallty modules required 
1 year warranty • 1 day money back guarantee 
Adapters available tor 8748, 49, 51, 751 , 52, 55, 
TMS 7742, 27210, 57C1024, and memory cards 
Made in U.S.A. 



2 ft. Cable 



40 pin ZIF 




NEEDHAM-S ELECTRONICS 



4539 Orange Grove Ave. • Sacramento, CA 95841 
Mon. - Fri. Sam - 5pm PST 



C.O.D. 



Call tor more information 
(916)924-8037 

■ FAX (916) 972-9960 



Cross-AssemblerSasiowas$5ooo 

OirnUl3tOrSaslowas$100 00 

Cross-Disassemblers as low as $100 oo 
Developer Packages 

as low as $200.00(a $50.00 Savings) 

A New Project 

Our line of macro Cross-assemblers are easy to use and full featured, 
including conditional assembly and unlimited include files. 

Get It To Market-FAST 

Don't wait until the hardware is finished to debug your software. Our 
Simulators can test your program logic before the hardware is built. 

No Source! 

A minor glitch has shown up in the firmware, and you can't find the original 
source program. Our line of disassemblers can help you re-create the 
original assembly language source. 

Set To Go 

Buy our developer package and the next time your boss says "Get to work.", 
you'll be ready for anything. 

Quality Solutions 

PseudoCorp has been providing quality solutions for microprocessor 
problems since 1985. 

BROAD RANGE OF SUPPORT 

• Currently we support the following microprocessor families (with 
more in development): 

Intel 8048 RCA 1802,05 

Motorola 6800 Motorola 6801 

Hitachi 6301 Motorola 6809 

Flockwell 65002 Intel 8080,85 
Hitachi HD64180 Motorola 68000,8 

• All products require an IBM PC or compatible. 

So What Are You Waiting For? Call us: 
PseudoCorp 

Professional Development Products Group 

716 Thimble Shoals Blvd, Suite E 
Nevkport News, VA 23606 

(804) 873-1947 FAX: (804)873-2154 



Intel 8051 Intel 8096 

Motorola 68HC 11 Motorola 6805 
MOS Tech 6502 WDC 65C02 
Zilog Z80 NSC 800 

Motorola 68010 Intel 80C196 
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IfD William PWoodal! 


• Software Specialist 


JJD 

Custom Software Solutions for Industry: 




Industrial Controls 


Hardware Interfacing 


Operating Systems 


Proprietary Languages 


Image Processing 


Component Lists 


Custom Software Solutions for Business: 




Order Entry 


Point-of-Sale 


Warehouse Automation 


Accounting Systems 


Inventory Control 


Local Area Networks 


Wide Area Networks 


Telecommunications 


Publishing Services: 




Desktop Systems 


Format Conversions 


Books 


Directories 


CBT 


Interactive Video 


33 North Doughty Ave, Somerville, NJ 08876 • (908) 526-5980 
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SAGE MICROSYSTEMS EAST 

Selling & Supporting the Best in 8-Bit Software 

(New Lower Prices on Many Items!) 

• Automatic, Dynamic, Universal Z-Systems: Z3PLUS for CP/M-Plus computers, 
NZCOM for CP/M-2.2 computers (now only $49 each) 

• XBIOS: the banked-BIOS Z-System for SB180 computers ($50) 

• PCED — the closest thing to Z-System ARUNZ, and LSH under MS-DOS ($50) 

• DSD: Dynamic Screen Debugger, the fabulous full-screen debugger and simulator ($50) 

• ZSUS: Z-System Software Update Service, pubhc-domain software distribution service 
(write for a flyer with full information) 

• Piu*Perfect Systems 

- Backgrounder ii: CP/M-2.2 multitasker (now only $49) 

- ZSDOS/ZDDOS: date-stamping DOS ($75, $60 for ZRDOS owners, 
$10 for Programmer's Manual) 

- DosDisk: MS-DOS disk-format emulator, supports subdirectories and 
date stamps ($30 standard, $35 XBIOS BSX, $45 kit) 

- .letFind: super fast, extemely flexible regular-expression text file 
scanner (now only $25) 

• ZMATE: macro text editor and customizable wordprocessor ($50) 

• BDS C — complete pkg including special Z-System version (now only $60) 

• Turbo Pascal — with new loose-leaf manual ($60) 

• ZMAC — Al Ilawley's Z-System macro assembler with linker and librarian 
($50 with documentation on disk, $70 with printed manual) 

• SLR Systems (The Ultimate Assembly Language Tools) 

- Z80 assemblers using Zilog (Z80ASM), Hitachi (SLR180), or Intel (SLRMAC) 
nniemoiiics, and general-purpose linker SLRNK 

- TPA-based ($50 each tool) or virtual-memory ($160 each tool) 

• NightOwl (advanced telecommunications, CP/M and MS-DOS versions) 

- MEX-Plus: automated modem operation with scripts ($60) 

- MEX-Pack: remote operation, terminal emulation ($100) 

Next-day shipping of most products with modem download and support available. Order 
by phone, mail, or modem. Shipping and handling: $3 USA, $4 Canada per order; based on 
actual cost elsewhere. Check, VISA, or MasterCard. Specify exact disk formats acceptable. 

Sage Microsystems East 

1435 Centre St., Newton Centre, MA 02159-2469 

Voice: 617-965-35.52 (9:00am - 11:30pm) 

Modem: 617-96.5-7259 (pw = DDT) (MABOS on PC-Pursuit) 



